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Editorial 


L'année 1982 marque un tournant décisif de l'in- 
formatique individuelle : celui de la polarisation, 
de la structuration des produits et des politiques 
des entreprises. En effet, alors qu'arrivent les nou- 
veaux systèmes 16 bits, tels celui d'IBM ou le Modèle 
16, une autre poussée aussi forte s'exerce sur les 
systèmes à moins de 5000 Francs, tant du côté des 


: ordinateurs de poche, que du côté des ordinateurs 


de valise" comme les récents Epson HX-20 et Hewlett- 
Packard 75C, et enfin autant que du côté des "ordina- 
teurs de famille" comme le TRS couleur ou le Thomson 
T-07 toujours attendu. 

Les constructeurs se montrent- du coup plutôt 
prudents quant à d'éventuels ordinateurs situés dans 
la tranche intermédiaire, et peu osent s'aventurer 
à y proposer de nouveaux Systèmes. Tout au plus voit- 
on fleurir les copies améliorées des valeurs sûres 
que semblent être l'Apple 2 et le TRS-80 modèle 1 
ou 3, ces matériels semblant eux continuer leur bon- 
homme de chemin, même si au passage le modèle 1 a 
été abandonné aux Etats-Unis : aucune importance, 
Tandy le soutient encore à bout de bras, lui adjoi- 
gnant même récemment un complément qui lui permet 
d'utiliser les minidisquettes du modèle 3. 

pu cote des entreprises elles-mêmes, c'est entre 
deux grands axes que la structuration s'effectue 
la production et la distribution. A l'heure actuelle 
seul Tandy semble pouvoir avec quelque bonheur faire 
les deux simultanément, Mais il est vrai que cela 
ne va pas Sans lôcher du lest : côté production, en 
achetant ses poquettes PC-1 et PC-2 à Sharp, et en 
passant des accords avec différents constructeurs 
orientaux et avec Matra. Côté distribution, en se 
tournant vers des ensembliers informatiques comme 
MTI, ou vers des réseaux complémentaires du sien, 
tel celui de RCA pour diffuser le "couleur", ou en 
France American Express pour le modèle 3. Bref, Tandy 
se défend pour préserver ses deux activités sans 
devoir sacrifier l'une à l'autre. Mais.il n'est pas 
évident que le créneau du haut de gamme ne fera pas, 
après celui du milieu, les frais de l'opération 
tout va se jouer sur le modèle 16. Aura-t-il dans 
deux ans suffisamment’ de logiciels pout paraître plus 
qu'une machine techniquement séduisante ? 
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LOGICIELS TRS 80° 


FONCTION 


CIAVIER / UNITE CENTRALE / MAGNETOPHONE : 
EG 3003 - 3800 F TTC 
e Microprocesseur Z 80 € 16 K RAM utilisateur 
e ROM BASIC Microsoft LEVEL 2 (12 K 
e Affichage écran: 16 lignes de 64 ou 32 caractères 
e Graphismes : 128 x 48 points e Minuscules à l'écran 
e Branchement direct sur moniteur vidéo 
e Magnétophone à cassettes intégré au boîtier 
e Vu-mètre de réglage de niveau de lecture magnétophone 
e Prise DIN pour un second magnétophone 
e Fonction RENUMBER 
e Alimentation intégrée 200/240 volts 50 Hz 
e Sortie son avec haut-parleur incorporé 
e Livré avec manuels en français, cordons 
et une cassette de démonstration. 
e Compatible logiciels TRS 80* 


INTERFACE D'EXTENSION AVEC 
32 KRAM- ............:3500 FTIC 
Boîtier d'extention contenant le 
contrôleur de floppy-disks, interface 
parallèle Centronics, interface Bus 
$100, 32 K RAM (qui étendent donc 
votre système à un total de 48 K RAM). 
Foumi avec alimentation secteur, 
manuel et cordon de raccordement 
au clavier. 





DRIVE SIMPLE 

(Floppy-Disk Drive) - 3995 F TIC 
Lecteur enregistreur de disques souples 5 pouces 1/4 - 40 pistes - 100 K 
Totalement compatible pour la lecture de logiciels TRS 80° sur disque. 


ÉRSEMIBIEDEZ DRIVES 2. 0-0 7700 F TIC 
LANGAGES 
e Editeur-Assembleur MICROSOFT 
TERRE ee 350 F TIC 
PR ER 395 F TIC 
e Infinite Basic 
DE ee 495 F TIC 
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Offre valable dans la limite des stocks disponibles. 


e OKI MICROLINE 80 ......... 


FR SE © 


JEUX POUR TRS-80 ET VIDEO-GENIE 


e DAMES CHALLENGER K7 
Dames françaises contre l'ordinateur, partenaire de très haut niveau 
K7,16K-.- 2 RE re ne . 220 F TIC 


e T 80 FLIGHT SIMULATOR K7 
Simulateur de pilotage d'avion. Graphismes 3 DIM en temps réel 
K7- TOR — ; SET 270 F TIC 


e LES ENVAHISSEURS 
Animation graphique très rapide. Détruisez les hordes d'envahisseurs 


qui foncent vers la terre K7, 16 K 110 F TIC 
e TANKTICS 

Superbe wargame contre l'ordinateur. Simulation de batailles de 

chars durant la seconde guerre mondiale K7,16K . 295 FTIC 
e SPACE SHUTTLE 

Pilotez la navette spatiale américaine K7, 16 K 170 F TIC 
e ASYLUM 


Aventure avec graphismes 3 DIM: Evadez-vous de l'hopital 
psychiatrique où vous avez été interé par erreur! 
KL AGREE 211 F TIC 


@e DEFENSE COMMAND 
Jeu d'adresse avec superbe animation graphique: défendez vos 
réserves de carburant contre des hordes d'ennemis d'une autre 
galaxie K7, 16K 160 F TIC 


e ROBOT ATTACK 
Jeu d'adresse avec animation graphique, sonore et parlante ! 
Détruisez tous les robots qui ont envahi la station spatiale 
RO ee 160 F TIC 


© STELLAR ESCORT 
Un nouveau jeu BIG FIVE: animation graphique rapide, effets 
sonores. Détruisez les vaisseaux ennemis qui apparaissent dans le 
viseur de vos canons laser! K7, 16 K 165 F TTC 





+ TRS 80 est un modèle déposé par TANDY-RADIO-SHACK. 


LE NOUVEAU CATALOGUE SIVEA VIENT DE PARAITRE ! 


Pour le recevoir GRATUITEMENT retournez nous le Bon de Cde avec 
seulement vos nom et adresse, 














31, Bd des Batignolles 21 bis, rue de Valmy 
75008 PARIS 59000 LILLE 


Tél. : 522.70.66 (+) - Télex 280 902F Tél. : (20) 57.88.43 (+) 

Métro : Rome - Place Clichy Ferrné le lundi matin jusqu’à 13 h 30 

parking assuré au 43 bis, Bd des Batignolles parking assuré Bd de la Liberté 

OUVERT SANS INTERRUPTION DU LUNDI AU SAMEDI DE 9 H 30 A 18 H 30 (LUNDI 13 H 30 POUR LILLEJ. 
DETAXE A L'EXPORTATION. VENTE PAR CORRESPONDANCE — CREDIT — LEASING — CARTE BLEUE-VISA 








LIBRAIRIE POUR TRS 80 


ET VIDEO-GENIE 


© THE BOOK Vol. 1: 
Toutes les routines arithmétiques de la ROM pour programmer plus 
facilement en langage machine. 120 pages N.C. 


e THE BOOK Vol. 2: 
Les routines d’entrée/sortie de la ROM : écran, clavier, cassettes. 
HD PAR Se ee ne Ce ne 135 F TIC 


@ LE MANUEL D'UTILISATION DU DOS: 
Concerne TRS DOS (Tandy) et New-Dos Plus (Apparat) : les com- 
mandes, les utilitaires, etc. 90 pages en français 95 F TIC 


e DISK INTERFACING GUIDE : 
La programmation des formatages, lectures etécritures sur disquette 
en langage machine : accès disque sans utiliser le DOS. Liste des 
commandes du contrôleur de disques, etc. 55 pages ..…. 70FTIC 


e TRS 80 DISK & OTHER MYSTERIES : 
Tout sur les disquettes du TRS 80 : architecture du directory, organisa- 
tion des fichiers, comment récupérer des données où des pro- 
grammes sur disquette abîimée, etc. 130 pèges 195 F TIC 


e MICROSOFT BASIC DECODED 
& OTHER MYSTERIES : 
Toutes les routines de la ROM 
utilisables pour programmer en 
langage machine: adresse, 
contenu des registres, etc. Orga- 
nisation et déroulement d’un 
programme Basic: où il com- 
mence, où ilstockeses données, 
etc. 
310 pages ......... 260 F TTC 


© BASIC FASTER AND BETTER 
& OTHER MYSTERIES : 
Enorme recueil de “trucs” de pro- 
grammation de haut niveau: 
String packing, line packing, etc. 
290paReS 290 F TIC 





> © THE CUSTOM TRS & OTHER 
MYSTERIES : 

Tous sur le hardware du TRS-80. 
Nombreux montages pour amé- 
liorer votre TRS : haute résolution 
graphique, inversion vidéo, 
majuscules/minuscules, comment 
faire de la musique, etc. 
S3D0/pages 295 F TIC 








© TRS 80 GRAPHICS FOR MODEL 1 and MODEL 3 (Byte Books) : 
Très bel a abondamentillustré sur le graphisme TRS-80 /SET et 
RESET, POKE, langage machine, etc. 290 pages 175 F TIC 


© TRS-80 ASSEMBLY LANGUAGE (Prentice-Hall ) : 

La programmation en langage machine sur TRS 80. 

190 pages TT De 0 PR 140 F TTC 
© TRS 80 Interfacing Book 1 : 

Comment faire communiquer le TRS-80 avec son environnement : 


convertisseur D/A, etc. 190 pages ...................... 105 F TIC 
© TRS 80 Interfacing Book 2: - 

Encore d'autres circuits d'interface. 250 pages 105 F TIC 
@ 32 BASIC Programs for. TRS-80 ............... . ...... 110 F TIC 
e TRS-80 Assembly language made simple 225 F TIC 


© THE SOFTSIDE SAMPLER, 29 programmes de jeux .…… 130 FTTC 
© LA PRATIQUE DU TRS 80 BASIC 2 (H. LILEN): 70 FTIC 
© LA PRATIQUE DU TRS 80 Vol. 1 (Editions P.S.L): . 65 F TTC 


© LA PRATIQUE DU TRS 80 Vol. 2 (Editions P.S.L): .. 85 F TTC 
© LA PRATIQUE DU TRS 80 Vol. 3 (Editions P.S.L): … 75 F TTC 
© LES GRAPHIQUES SUR TRS 80 (Editions P.S.L): ... 75 F TIC 


@e LES GRAPHIQUES SUR TRS-80 : 
Tout sur les possibilités graphiques du TRS-80. 
LAOPPAR ES ET MANGAS 75 F TIC 


© THE POWER OF VISICALC Vol. 1 : 


Découvrez toutes les fantastiques possibilités d'application de Visi- 


calc dans l’entreprise et au foyer : comptabilité, finances, fiscalité, etc. 
GB papes era PE NE De ds 115 FTIC 


e THE POWER OF VISICALC Vol. 2: 
Etude approfondie de Visicalc: l'instruction IF, etc. 


DE PABOS EE Re 115 F TIC 
TRS BON DE COMMANDE 7 


E Retourner à: SIVEA S.A - 31, Bd des Batignolles 75008 PARIS 
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MODE DE REGLEMENT TOTAL El 


F Participation port et emballage : 
heque bancaire joint pa g: 
Su SR E oir aussi C-dessous : + 220 F: 


CCP joint O 













Mandat-lettre joint (a) 





Contre-Remboursement O 


FRAIS DE PORT ET D'EMBALLAGE 
TAjouter220 F pour toute commande comportant, pour tout ou partie, des at aies tels 
jee : unité centrale, floppy-disk imprimante, moniteur vidéo, papier pour imprimante 
Transport par service express avec assurance compnse (Corse. DOM-TOM #tranger 
| Lo consulter par téléphone «1 courrier en ce cas} 
= D CU CR CR UN CMS Œu ŒD D ŒuS US D UE 
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GRAF transforme votre impri- 
mante LINEPRINTER VI en 
table à dessin de 
65536 points. GRAF fonc- 
tionne en ajoutant des com- 
mandes au BASIC DISK. Sim- 
ple à utiliser, performant. 
Utile pour tracer des courbes, 
faire du graphisme. 

MOD | DISK 


GESTCO gère un compte ban- 
caire personnel 1000 à 
2000 Mvts. Calcul du solde. 
Liste écran, imprimante. TRI 
sur code ou libellé. 

MOD | DISK 


TRS-80 


ZLIST structure vos program- 
mes avant la sortie écran ou 
imprimante, sans modifier 
l'espace mémoire.  ZLIST 
espace chaque mot clés, 
idente les FOR-NEXT, IF ELSE. 
Très utile pour la mise au point 
de vos programmes. 

MOD I K7, DISK .... 199F 


UTILDIR mémorise à votre 
place le contenu de 80 dis- 
quettes. Ne cherchez plus un 
programme. UTILDIR sait où il 
se trouve. 

MOD I DISK 


GESTION de stocks. GESTION comptes clients pour Modèle I, 
ll, Ill, de 1000 à 2000 fiches. Standard ou sur mesure. Nous 


consulter. 
* Trademark of Tandy C° 


Retourner à : M. H. POSSARD - TABANAC - 33550 LANGOIRAN 
æ (56) 67.29.61 


Je désire recevoir une documentation détaillée sur ces produits. 


Adresse : 


Ve ne 





Profession. 
Code postale 


Diva TÉIÉPRONE 22e. 








e Les programmes sont écrits en langage “machine” e Le 
score le plus élevé est automatiquement mis en mémoire 
dans la version “disque” de Apple Panic e L'emballage de 
tous les jeux est en couleurs. 





Prix par jeu: Tape 1.250 FB — 135FF frais de port 
Disk 1.450FB — 155FF non-compris 






e Nous acceptons les cartes VISA et MASTERCHARGE 
Conditions spéciales pour revendeurs. 


Scénario Y. LEMPEREUR 
Copyright © 1982 by MICRO 2000 vous dévore! 















UN TRS-80 


ENCORE PLUS PERFORMANT 


COMPILATEUR BASIC 
ET DISK BASIC 

e Version améliorée et entièrement réé- 

crite d'ACCEL 2, lequel a été plusieurs fois 

cité, dans la presse américaine, comme 

étant l'un des meilleurs compilateurs. 






e Idéal pour les applications professionnelles. 


e Les programmes normaux sont traduits en langage 
machine sans que des modifications soient nécessaires. 






















e L'augmentation de la vitesse d'exécution est telle que le pro- 
grammeur BASIC peut accéder aux domaines réservés du spécialiste 
en assembleur, par exemple : 

— génération de musique 

— applications graphiques complexes. . ... K7 ou disque : 650 F TTC 
— ACCEL : Version simplifiée d'ACCEL 3.......... K7 : 259F TIC 
— EDIT : Editeur BASIC plein écran avec curseur “flottant”. Rend 
l'écriture et la correction des programmes BASIC rapide et agréable. 
L'utilitaire indispensable du programmeur. . ......... K7:230F TTC 
— TSAVE + DETECT: permettent de réaliser simplement (sans 
assembleur, ni hexadécimal) des copies de sauvegarde des bandes en 
format “SYSTEM” standard. :.....-....------.... K7 : 195F TIC 
+ Tous ces programmes pour TRS-80 modèle | et Ill L2 et Vidéo-Génie à partir de 16K RAM 
sont accompagnés d'une documentation détaillée en français. 

+ Demandez notre catalogue pour plus de détails (+ LDOS, ACORN SOFTWARE, etc.). 

* Port : ajoutez 20 F (30 F pour l'étranger, 45 F si contre remboursement) à votre commande 
< TRS-80 : marque déposée de Tandy 


GENERAL SOFTWARE 


19, bd Montmartre - 75002 PARIS - Répondeur 531.49.26 
VENTE PAR CORRESPONDANCE EXCLUSIVEMENT 


THE BLACK HOLE: 


Les Dorfians vien- 
nent d'envahir 
l'Empire Galacti- 
que. La flotte de 
l'Empire riposte et 
détruit tous les en- 
vahisseurs, à l'ex- 
ception de leur 
chef. Celui-ci s'est 
réfugié au fond d'un 
“Trou Noir”. Votre 
mission: le détruire! 


APPLE PANIC : 
D'horribles pommes vous 
poursuivent. Vous devez 
creuser des trous dans le sol de 
briques de manière à les y faire 
tomber, puis les dé- 
truire en les frap- 
pant sur la tête. 

Si vous n‘y arrivez 
pas à temps, la 
pomme se hisse hors du trou et... 


















Bientôt: "Alien eggs”, "Bable terror"…. 
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x 44-46, Avenue Tervueren 
LOS 1040-Brussels (Belgium-Europe) 
——’{/ Tel.02/733.65.40 
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le magazine des utilisateurs de TRS-80° 






















TRS-80 modèle 1, TRS-80 
modèle 2, TRS-80 modèle 3, 
TRS-80 Coul 






Au sommaire duuméro 3 


Essais Orchestra 90, kit minuscules accentuées 
e APL sur TRS e Zap and patch e-Apprenez la 
musique e Sauvegardez vos cassettes e Une 
classe maternelle e Les graphiques sur TRS € 
Détectez et modifiez des mots-clés e Des outils 
pour votre programmation (2) e Minidisquettes 
double face sur modèle 1 e Un tri efficace et simpie 
e Pour lire vos cassettes nouvelle ROM € S'ini- 
tier aux compilateurs e RUBRIQUE POQUETTES : 
Cluedo, tapissez vos murs, la bataille navale 
e … ET LES RUBRIQUES magazine, librairie, 
trucs à brac, côté court, DOS de A à Z. 






si Vous utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a été créée pour vous. 
TRACE vous fournit quatre 

fois par an des programmes, 

des astuces, de nouvelles idées 
d'applications. TRACE est ——— EE 
indépendant de tout constructeur, a. rat 

et vous tient au courant de toutes EE msi 

les nouveautés dans les domaines des logiciels, des matériels et des 
périphériques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivité 
et indépendance, les produits matériels ou logiciels qui vous intéressent. TRACE n'est 
pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numéro, il vous suffit de nous retourner le bon de commande ci-dessous. 





TRS 80, Sharp, Vidéo-Génie et LNW sont des marques déposées. 


TRACE, le complément indispensable de votre TRS 80 





Hd 


Si vous utilisez un ordina- 
teur SINCLAIR (ZX 81, 
ZX 80 ou Spectrum) ou si 
vous comptez en acheter 
un, sachez que la revue 
ORDI-5 a été créée pour 


vous. Indépendant de tout constructeur 
ou importateur, ORDI-5 vous fournit 
quatre fois par an des programmes, des 
conseils, des astuces, de nouvelles idées 
d'utilisation. ORDI-5 teste pour vous en 
toute objectivité et indépendance les 


la signification des touche de votre 


1 « Comment désassembler p£ 














tre 
3 « 








produits matériels et logi- 
ciels adaptables sur votre 


SINCLAIR. ORDI-5 vous | 


tient au courant de toutes 
les nouveautés suscepti- 
bles de vous intéresser. 


ORDI-5 n'est pas en vente chez les mar- 
chands de journaux. Pour le recevoir, il | 
vous suffit de nous retourner le bon de 
commande ci-dessous. 

Vous pouvez également vous abonner 
en profitant de notre tarif de lancement. 


ORDI-5, le complément indispensable de votre ZX 


‘marques déposées 
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Un fil à la patte. 


- Le programme "super driver pour imprimante paral- 
lèle", paru dans le numéro 1 de TRACE, fonctionne 
correctement sauf lorsque je désire modifier dyna- 
miquement les paramètres par la commande *PARAL, où 
le message "file not in directory" est affiché. 
(Philippe Biessy). 


* OK Phil, vous avez trouvé l'erreur ! Le message 
correct aurait dû être "Phil not in directory" ! 
(Non, il ne s'agit pas d'un gag !) Vous avez 
maintenant gagné le droit de choisir entre deux 
solutions...: soit appeler votre programme : PHIL, 
soit remplacer, à la ligne 940, le texte "PHIL' par 
le nom que vous avez donné à votre programme 

DEFM "PARAL...' (ATTENTION : les points représentent 
trois espaces pour arriver à un total de 8 caractè- 
res. Mystérieusement d'ailleurs, l'apostrophe finale 
a disparu en page 15 de notre numéro 1). Mais 
pourquoi "PHIL" direz-vous ? Tout simplement parce 
que ce driver pilotait à l'origine une imprimante 
Philips... 


Editeur/assembleur ou macro-assembleur ? 


_ Votre article “initiation à l'assembleur" (TRACE 
n°1) a mis le feu aux poudres... et je me suis 
empressé d'acheter “l'editor/assembler" version 
disque, dans un magasin Tandy. Ma stupéfaction 
était grande en constatant que ma version n'était 
pas la même que celle présentée : 2 disquettes 
comprenant EDIT-80, MACRO-80, etc... (R. Sdettel). 


* Le programme utilisé dans notre article se nomme 
EDTASM et est en vente dans les magasins Tandy pour 
la version cassette uniquement. Ce programme, 
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repris par la firme Apparat, a été adapté à la 
version disquette, et figure comme tel sur les 
systèmes NEWDOS et NEWDOS80, mais n'est pas vendu 
séparément. D'autre part, Microsoft commercialise 
une version "évoluée" de ce programme, nommé 
EDTASM +, avec de nombreuses améliorations (macros 
notamment), et qui supporte les versions cassette 
et disquette (voir TRACE n°2 pour plus de détails) 
A notre connaissance, ces deux produits ne se trou— 
vent pas chez Tandy qui, par contre, commercialise 
le macro-assembleur M80 très puissant, mais d'un 
emploi plus complexe pour les débutants. Nous en 
reparlerons un jour ! 


MOD pas à la mode du Level 2... 


- Comment peut-on remplacer l'instruction MOD sur 
un TRS ? (J.R. Sdettel). 


* Sur certains BASIC, on rencontre parfois -l'opéra= 
teur MOD (module), qui correspond au reste de le 
division entière de deux valeurs (17 MOD 5, par 
exemple, rend la valeur 2). Sur les BASIC qui ne 1e 
possèdent pas, X MOD Y peut être remplacé par X-Y* 
FIX(X/Y). - 


... et le modèle 3 ? 


- Pourriez-vous proposer des modifications ou 
montages" en ce qui concerne le modèle 3 ? Je suis 
vivement intéressé par un article qui traiterait de 
la façon de monter soi-même une unité de disquette. 
Connaissez-vous une firme qui vend un tel kit, ou 
un lecteur ayant une telle réalisation à son actif? 
(C. Cassimans). 


* Le modèle 3 est assez récent, et nous ne disposons 
pas actuellement, de montages spécifiques à ce 
matériel. Mais que les lecteurs n'hésitent surtout 
pas à nous soumettre les leurs ! Concernant l'ins- 
tallation de la première unité de disquette, il fauz 
savoir que le "kit" est constitué, en plus de 
l'unité proprement dite, d'une alimentation (pour 
deux disquettes), d'une carte contrôleur, d'une 
mécanique permettant de fixer l'ensemble, du sys- 
tème d'exploitation TRSDOS et de sa documentation, 
et enfin de trois cables plats. Tandy ne vend pas 
séparément ces différents sous-ensembles. Aux 
Etats-Unis, cela est possible auprès de certaines 
firmes (Percom et MTI notamment ; cette dernière 
semble avoir un représentant à Paris, qui répond 
au numéro de téléphone : 306.46-06). Toute société 
capable de fournir ces composants séparément est 
invitée à nous contacter. Quant aux lecteurs ayant 
eu quelque expérience à ce sujet, qu'ils nous en 
fassent part (un article serait le bienvenu). 


- Quelqu'un a-t-il réalisé sur modèle 3, les ex- 
tensions BASIC du livre "la pratique du TRS-80" 
volume 2 ? (G. Briand, Club Ademir-Orléans). 


* Il serait bien rare que cela ne soit pas déjà 
fait... Nous attendons les réponses (le cas 
échéant, il n'est pas trop tard pour se mettre au 
travail) ! 


Stringy floppy ? 


- Votre revue contient une publicité qui propose 
un système "plus rapide et plus fiable que les 
cassettes", et qui se nomme ESF (Exatron Stringy 
Floppy). Pourriez-vous parler et tester ce produit? 


... En effet, la publicité, comme toute publicité, 
enjolive son produit tout en masquant les côtés 
néfastes du matériel... ne connaissant pas les 
disques, je ne suis pas à même de juger. (B. 
Jouanjus). 


* Ce matériel nous a été promis pour un essai, dès 
qu'il serait disponible. Nous devons malheureuse- 
ment en conclure qu'il ne l'est toujours pas à 
l'heure actuelle. 


Favoritisme ? 


- Vous faites, selon moi, la part trop belle aux 
possesseurs de DOS. Je n'ai rien contre le DOS 
naturellement, rien non plus contre les Mercedes, 
BMW et autres Bentley. Et vous ? Nos épouses 
convertissent très vite le prix du DOS (et de 
l'interface), en machines à laver la vaisselle, ou 
autres appareils électro-ménagers... Donnez-leur la 
parole, vous verrez bien...(C.Darbaud). 


* Ça, c'est une bonne idée : écrivez-nous, mesdames, 
surtout si vous êtes des "fanas" du TRS ! Voyons, ne 
vous aurait-on pas appris à partager : une machine à 
laver, un TRS, un magnétoscope, une disquette... 

Et puis, avec l'ordinateur au foyer, plus de mari au 
bistrot, et plus de gosses au flipper...! La télé ? 
Mais chacun sait que c'est très mauvais pour les 
enfants ! L'ordinateur, lui, il fait son entrée dans 
les écoles. Alors, vous voyez ! Pensez à l'avenir 

de vos enfants. De plus, il est impossible 
d'apprendre correctement l'anglais ou les mathémati- 
ques chez soi, sans disquette...(Nous avons fait 
notre possible, monsieur Darbaud)! 


; 


Tactique ou stratégie ? (lettre ouverte) 


- Comment faire pour acheter un logiciel de jeu ? 
Naïvement, il m'avait semblé que les boutiques 
d'informatique étaient 1à pour offrir ce tÿpe de 


service. Aussi, ayant porté mon choix sur un jeu de 
stratégie, je téléphonai à la boutique parisienne X 
pour m'assurer de la disponibilité de ce programme 
ét de la possibilité d'avoir une démonstration. 
Avant de dépenser 450 frs, il était préférable de 
vérifier l'intérêt du jeu ainsi que la manière dont 
était représenté graphiquement le terrain. 
Rendez-vous étant pris, je me présentai un samedi 
matin, assisté de mes deux fils, spécialistes en 1a 
matière. Après trois quarts d'heure d'attente, 
quelle ne fut pas notre stupeur devant la réaction 
du technicien enfin mis à notre disposition. Il 
refusait tout simplement de faire la démonstration, 
prétextant le temps nécessaire au chargement du 
programme (5 minutes!), le risque d'erreur de lec- 
ture de la cassette (tiens, tiens!) et la foule du 
samedi (trois clients dans le magasin). Inutile de 
préciser que nous sommes repartis sans avoir fait 
le moindre achat tout en ayant fait remarquer au 
responsable de la boutique l'incongruité de faire 
déplacer des clients pour finalement les decevoir à 
ce point. 


Finalement nous avons attendu la parution d'un banc 
d'essai dans une revue pour acheter dans une autre 
boutique le jeu de stratégie Tigers in the snow 

(la bataille des Ardennes). Hélas, une erreur de 
lecture de la cassette rendait le programme in- 
utilisable. Après retour de celle-ci au vendeur 
(très aimable), il m'a fallu quinze jours pour dis- 
poser d'une nouvelle copie. Mais cette fois-ci, le 
fichier de données, écrit sur l'autre face, n'était 
plus lisible ! 


Ayant acheté par correspondance aux Etats-Unis, 
plusieurs programmes sur cassette sans le moindre 
ennui et à des prix autrement compétitifs, 
l'intérêt de passer par une boutique, dans ces 
conditions de services, ne m'apparait pas évident. 
(PO 


* Vous semblez effectivement avoir accumulé les dé- 
convenues. En ce qui concerne l'accueil dédaigneux 
reçu dans la première boutique, tout comme celui 
aimable que vous avez trouvé dans la seconde, il 
est difficile d'en tirer des conclusions trop dé- 
finitives : il suffit que vous tombiez sur un 
vendeur débutant et peu compétent pour rencontrer 
souvent un accueil sans la moindre considération, 
alors que dans la même boutique l'accueil d'un autre 
vendeur (ou du même un autre jour) sera très 
agréable. Regardez bien autour de vous : vous 
rencontrez le même genre d'accueil "variable" dans 
toutes les boutiques, quoi qu'elles vendent - pain, 
viande, hi-fi, livres, disques, vêtements, etc. - 
Faites pour vos programmes comme pour vos autres 
achats : retournez là où vous avez rencontré le 
meilleur accueil et le meilleur service, et 

essayez d'avoir le même vendeur. Les gens peu 
aimables ou peu serviables s'éliminent ainsi d'eux- 


mêmes, alors que les autres reçoivent un juste 
retour à leurs efforts. 

En ce qui concerne d'autres sources d'approvision- 
nement, vous avez raison d'insister sur le fait que 
si les boutiques ne donnent pas un bon service, il 
vaut mieux acheter par correspondance en France ou 
aux Etats-Unis. Et il faut également ajouter que 

si les utilisateurs ne peuvent essayer les prog- 


rammes, ceci risque de leur donner bonne conscience 
s'ils en "empruntent" une copie plus ou moins 
pirate à un ami. 
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CP/M-86 POUR MODELE 2 


Alors que Tandy annonce le modèle 16 aux Etats-Unis, 
ainsi qu'un kit permettant de transformer le modèle 
2 en modèle 16 (microprocesseur 16 bits 68000 de 
Motorola), la firme californienne Veritas Technology 
Inc propose une autre solution, très séduisante 

une carte bi-processeur équipée d'un Z80, d'un 8086 
(16 bits Intel) et de 128K octets de mémoire (exten- 
sible à 256K), occupant un seul emplacement dans le 
chassis du TRS (prix : de l'ordre de 1500 dollars 
environ). Avec cette option, le modèle 2 peut ainsi 
recevoir les systèmes d'exploitation CP/M-86 (Digital 
Research) et MS-DOS (Microsoft) équipant les ordi- 
nateurs individuels IBM et SIRIUS notamment, tout 

en restant compatible, bien entendu, avec CP/M-80 et 
TRSDOS. Voilà une direction qui nous semble moins 
tortueuse que celle adoptée par Tandy, du moins, 
tant que nous ne connaissons pas mieux le modèle 
10877 


La Société General Software annonce deux produits 
très intéressants sur modèles 1 et 3 : ACCEL3 et 
Smali-LDOS. Le premier est une version améliorée et 
entièrement réécrite du compilateur ACCEL2 (proba- 
blement déjà connu de nos lecteurs). Par rapport à 
celui-ci, la taille des programmes produits est 
réduite, ainsi que la durée de compilation, alors 
que le nombre des fonctions traduites en code machi- 
ne est augmenté. Les instructions inconnues d'ACCEL3 
continuent d'être exécutées par l'interprêteur. En- 
fin, il est possible de sauver directement sur 
disquette ou cassette, le code généré. Prix TTC avec 
manuel en français : 650 F. 


Small-LD0S est une version simplifiée du célèbre 
système d'exploitation de disquettes : LDOS, dont 

il conserve les meilleures commandes, ainsi que 
l'intégralité du LBASIC. Ce système de taille rédui- 
te, est à conseiller pour les utilisations couran- 
tes ne nécessitant pas le niveau de sophistication 
du LDOS. Prix TTC (manuel anglais) : 830 F. 


A l'occasion de Micro-expo, Tandy vient d'annon- 
cer un disque dur pour le modèle 2, d'une capacité 
de 8,4 millions d'octets. Compatible avec la plu- 
part des logiciels existants, il est possible de 
connecter jusqu'à quatre unités semblables (33 
Moctets) sur cet ordinateur. 

Cet organe périphérique, de technologie Winchester, 
est en fait composé de deux disques 8 pouces situés 
dans un milieu hermétique à la poussière, offrant 
donc quatre faces magnétiques de 256 pistes chacune. 
La vitesse de transfert est de 4,34 millions de bits 
par seconde, pour une vitesse de rotation de 3125 
tr/mn. Le temps d'accès piste à piste est de 19 
millisecondes. 


Un grand revenant sur le stand Tandy : le TRS couleur 
(Coco pour les intimes) ... qui, cette fois, est 
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équipé d'une prise Péritel, ce qui lui permet de 
s'adapter sans le moindre problème aux téléviseurs 
couleur munis de cette possibilité de connexion (les 
postes récents en sont systématiquement pourvus). 
Voilà qui va sérieusement descendre le prix de la 
configuration de base, puisque les utilisateurs ne 
seront plus obligés d'acheter également le télévi- 
seur au standard PAL ou NTSC, compagnon inséparable 
- jusqu'à maintenant - du TRS couleur français. 


Contre toute attente, le modèle 16 (version 16 bits 
du modèle 2) n'était pas visible chez son construc- 
teur, mais à quelques mètres de là, sur le stand 
"Espace 01"... la "bête" ayant été directement im- 
portée des Etats-Unis. Il est vrai que le système, 
dont on pouvait toutefois admirer l'esthétique, ne 
brillait pas par la démonstrativité de son logiciel, 
dont il semblait presque totalement démuni. Enfin, 
nous sommes heureux d'avoir constaté qu'il existait. 
Mais qu'en est-il du prix et des délais de livrai- 
son ? 


Déplaçons-nous encore de quelques mètres, où la 
Société MDD (Micro Défense Diffusion) présentait un 
modèle 3 reconditionné aux Etats-Unis par les bons 
soins de la firme MTI. 4 part sa couleur blanche, 
rien ne le distingue du modéle standard. Pourtant, 
une fois sous tension, les résultats sont très 
significatifs : horloge 4 Mhz (au lieu de 2), deux 
modes de fonctionnement selon le système d'exploita- 
tion DOSPLUS 4.0 (compatible TRSDOS) ou CP/M 2.2. 
Sous le contrôle de ce dernier, il est possible au 
moyen d'un ordre simple, de passer l'affichage en 
24 lignes de 80 caractères ! En ce qui concerne les 
périphériques magnétiques, le choix est grand : 40 
pistes, 80 pistes, double face, double densité 
(jusqu'à 1,5 Moctets), et même disque dur 5 pouces 
externe ou se logeant en place d'une minidisquette 
(5 ou 7,5 Mo) ... Selon la configuration, la gamme 
comprend quatre modèles 

Chacun d'eux comprend au moins l'horloge rapide 
ainsi qu'un système de ventilation. 


GES présentait également le Vidéo Génie 3, qui, 

comme le modèle précédent, a l'avantage d'accepter, 
en plus du système d'exploitation standard NEWDOS-80, 
le CP/M 2.2 avec un format de 24 lignes de 80 carac- 
tères. Comme le modèle 3, le système se présente 
sous la forme d'un ensemble intégré comportant un 
écran, un clavier et deux unités de minidisquettes. 


Dans le cadre de Microexpo se tenait le jeudi 17 juin 
une session consacrée aux TRS-80. 

Indiscutablement cette demi-journée a été un succès. 
Devant une salle comble, huit orateurs ont fait le 
point de leurs expériences et de leurs connaissances 
des TRS-80 actuels et futurs. 


D'une manière générale, les orateurs ainsi que les 
participants qui ont eu à se prononcer sur la quali- 
té de leur matériel ont littéralement encensé leur 
TRS-80. Mais il est vrai que dans ce genre de situa- 
tion, rares sont les orateurs qui racontent leurs 
déboires ! 


Présidée par M. Montanari, le Président de l'Associa- 
tion des Utilisateurs de TRS-80 (AUT), la session a 
débuté par un exposé de M. Le Flour, professeur de 







mathématiques, qui a indiqué que, selon lui, les TRS 
sont grâce à leur prix les ordinateurs individuels 
les mieux adaptés à l'enseignement. IL a cité quel- 
ques établissements pédagogiques où ces matériels 
sont utilisés : le lycée Voltaire, la faculté de 
sciences de Jussieu, la faculté de Vincennes, l'INEP 
à Marly le Roi, la Chambre de Commerce du Loiret, etc. 
Parmi les produits pédagogiques intéressants, a Da 
présenté Eurydice qui est un langage - auteur sur 
modèle 3 - dont la caractéristique est de permettre à 
des enseignants non informaticiens de mettre au point, 
pour leurs élèves, des cours assistés par ordinateur 
- et Studial qui est un système d'apprentissage du 
clavier réalisé par la société Pigier. 


Ce fut ensuite au tour de M. Civet, ingénieur-conseil 
en informatique, de présenter une très intéressante 
utilisation d'un modèle 3 dans un laboratoire 
d'analyse médical. Parmi les applications réalisées, 
l'automatisation d'une petite paie (21 bulletins), 
de la comptabilité (500 lignes par mois), et de la 
cytologie (800 frottis par mois). Ce système a évi- 
té au laboratoire de recruter une personne de plus, 
il a permis d'augmenter la production, il a donné de 
bons outils de gestion aux responsables. Tout cela 
pour environ 27 000 francs ttc de matériel et moins 
de 3 mois-homme d'analyse et programmation, prati- 
quement entièrement en Basic. 


P. Giraud, responsable des produits chez Tandy France 
a exposé alors quelques utilisations possibles des 
modèles 2 comme terminaux compatibles de la "grosse" 
informatique (IBM 3270 ou 2780) et dans les réseaux. 
L'accent a été mis sur Tandy Dial, un nouveau ser- 
vice apparenté au réseau Micro Dial. On peut toute- 
fois s'interroger sur le succès d'un tel service 

tant que les modems coûtent plus de 3000 FF ttc. 


Ensuite M. Mignier et M. Merck ont présenté avec un 
film les conditions dans lesquelles l'informatique 
individuelle a été introduite dans une grosse entre- 
prise de 2000 salariés (en France), à savoir Moore 
Paragon. Au Sicob 1979, M. Merck; Directeur des 
Relations Humaines, a eu le coup de foudre pour 
l'informatique individuelle. Il est reparti avec un 
modèle 1 sous le bras. Il a très rapidement convaincu 
son PDG que ce nouvel outil devrait permettre de 
développer dans l'entreprise l'autonomie. et la créa- 
tivité des membres du personnel. Et, aujourd'hui, 25 
modèles 1 ou 3 fonctionnent plus de 8 heures par jour. 
Plus de 300 programmes ont été écrits par leurs 
propres utilisateurs. Chaque salarié peut suivre 
deux journées d'initiation au Basic et à VisiCalc. 
Chaque service peut ensuite acquérir un TRS-80 sur 
son propre budget, et non pas sur celui de la 
Direction Informatique. Les ordinateurs individuels 
sont utilisés à des fins multiples : statistiques, 
budgets, états de stocks, comptes d'exploitation, 
calculs de prix, etc. 


Une anecdote sur la fiabilité du modèle 3 

un utilisateur avait de longues listes à 
imprimer, et il décida d'aller déjeuner en 
laissant son système travailler tout seul, les 
fenêtres grandes ouvertes. Quelques minutes 
plus tard, le jardinier installa. un système 


d'arrosage automatique, puis alla vaquer 
ailleurs à d'autres occupations. À son retour, 
l'utilisateur-eut la mauvaise surprise de 
trouver son modèle 3 et ses listes complète- 
ment mouillés. Mais bien heureusement tout 


continuait à fonctionner normalement ! 

















La plus spectaculaire est peut-être celle réalisée 
dans une entreprise. Disposant d'un gros IBM 360/40, 
elle envisageait de commander un non moins gros IBM 
370/148 pour le remplacer. Finalement, ce furent 12 
modèles 2 qui ont été choisis à la place, permettant 
ainsi une plus grande souplesse et une sérieuse 
économie. 

Selon M.Faure, dès qu'un ordinateur individuel est 
utilisé plus de 2 heures par jour, il faut envisager 
d'en commander un autre. 


M. Lamoitier a présenté quelques systèmes d'exploi- 
tation disponibles notamment sur modèle 2 et en 
particulier CP/M et le p-system (UCSD) qui sont 
adaptés à des configurations monopostes, et Oasis, 
davantage orienté multiposte. 


Un des participants ayant poussé M. Montanari dans 
ses derniers retranchements, celui-ci a avoué que 


‘le système d'exploitation qu'il préconise sur 


modèle 1 et modèle 3 est le New DOS 80 version 2. 


Après cela, un film a été projeté pour présenter la 
société Tandy France (était-ce bien utile, les 
participants étant des connaisseurs, voire des 
convaincus?) et le Directeur Commercial, M. Beaufort, 
a annoncé les nouveaux produits disponibles dès à 
présent ou très prochainement sur le marché français. 
I1 est ainsi possible de connecter un TRS couleur 

sur un téléviseur Secam (enfin) doté d'une prise 
péritel ; Scripsit fonctionne sur modèle 3 avec un 
clavier AZERTY (re-enfin!) ; le modèle 2 peut être 
connecté simultanément à 4 disquettes de 500 000 
caractères, 1 disque dur de 8,4 MO et 3 disques 

durs de 8,9 MO. 


Avant la fin de l'année, le modèle 16 sera commer- 
cialisé sur le marché français (sans doute avec 
guère plus de logiciel qu'aux Etats-Unis), ainsi que 
les terminaux DT1 (qui sont des modèles 3 sans 
mémoire) et un réseau local semblable à Arcnet. 


Michel Dunant 


DERNIERE MINUTE : 


Tandy annonce la couleur ! 


Début juin, nous avons été surpris de voir dans les 
boutiques américaines que le TRS-couleur HK Niveau 
1 (référence 26-3001) était soldé à 299 $ (2000 FF 
environ) au lieu du prix catalogue de 399 $ (2700 
FF), sans moniteur vidéo couleur bien sûr. D'après 
les différents responsables de boutiques que nous 
avons alors pu interroger, c'était parce que la 
vente de ce modèle allait être arrêtée, du moins 
aux Etats-Unis, et qu'il fallait donc "vider les 
stocks". 


Effectivement, Tandy a depuis annoncé mi-juin 
aux Etats-Unis sa nouvelle "version de base", ré- 
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férencée 26-3004 ; elle dispose en standard de 16K 

de mémoire vive et d'un "BASIC couleur", et coûte 

399 $ «2700 FF environ). Il ne s'agit cependant vrai- 
semblablement pas là du même BASIC que le "BASIC 
couleur étendu" de référence 26-3018, vendu aux 
Etats-Unis 99 $ (670 FF), et qui nécessite lui 

aussi 16K de mémoire ; ce BASIC est (était?) dispo- 
nible en standard: sur les versions 16K de référence 
26-3002 (599 $, soit environ 4100 FF), et 32K de 
référence 26-3003 (699 $, soit environ 4800 FF). 


En attendant l'annonce en France du 26-3004, le 
‘vieux couleur" 26-3001, maintenant disponible avec 
interface couleur, est vendu 4295 FF ttc, l'extension 
à 16K coûtant 675 FF tte (soit le même prix que cette 
extension aux Etats-Unis!!!) et les mémoires mortes 
du BASIC couleur étendu coûtent 1125 FF ttc (alors 
qu'aux Etats-Unis elles coûtent le même prix que 
l'extension à 16K de mémoire vive). 


En même temps que le ‘nouveau couleur", Tandy a 
également annoncé, toujours aux Etats-Unis, une 
imprimante graphique couleurs et un terminal 
imprimant portable. 


L'imprimante graphique, référence 26-92, sera livrée 
fin 82. Elle permet d'imprimer à couleurs sur 80 ou 
HO caractères/ligne à la vitesse de 12 caractères/ 
seconde. Les interfaces série et parallèle sont 
intégrées. Le prix ? seulement 250 $ (1700 FF ttc), 
ce qui devrait'"faire un malheur". 


Le terminal portable, référencé PT-210, comporte un 
clavier à 67 touches, une imprimante thermique 80 
colonnes 50 caractères/seconde et un modem 
acoustique intégré. Prix : 995 $ (6800 FF environ), 
avec en option une interface série (70 $, soit 480 
FF environ). Avec cette dernière option, on peut 
utiliser le PT-210 comme terminal ou imprimante 
d'un ordinateur quelconque : pas mal ! Notez toute- 
fois que dans l'immédiat, seule cette dernière 
utilisation serait possible en France, le modem 
acoustique étant aux noms américains, et non euro- 
péens (...non compatibles...). De plus, Tandy ne 
vendra pas ce terminal en France sans avoir fait 
homologuer le modem par les PTT, même si les 

modems acoustiques ne sont pas vraiment soumis à 
l'homologation obligatoire. 


TANDY vient de créer un système d'assistance télé- 
phonique, que les utilisateurs de TRS peuvent 
appeler "pour obtenir tout renseignement nécéssaire 
à une meilleur utilisation de leur TRS". Nous 
n'avons pas encore pu tester l'efficacité et l'ama- 
bilité des personnes qui assurent cette assistance 
téléphonique, mais que nos lecteurs nous fassent 
part de leur expérience, qu'elle soit bonne ou 
mauvaise. 


Apparemment les utilisateurs appellent ces numéros 
à leurs frais. Sans doute que TANDY envisage très 
vite de s'abonner au "Service Libre Appel" du télé- 
phone : la satisfaction des utilisateurs n'a pas de 
prix, n'est-ce pas ? En attendant, on peut sans 
doute essayer d'appeler en PCV... 


En France : (1) 238 84 29 
En Belgique : (2) 647 10 91 
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Aux Etats-Unis, les versions recarrossées des dif 
férents TRS commencent à apparaitre dans les 
boutiques. Dans certains cas, l'initiative n'appar— 
tient pas à TANDY, mais à ses clients tels que M 
qui achète des Modèle 3 en quantité et leur adjo 
différents développements matériels. Mais la gran 
nouvauté, c'est que maintenant TANDY le fait, par 
exemple pour le couleur que l'on,commence à voir, 
dans d'autres boutiques que les Radio-Shack, avec 
une carrosserie blanche et un Cogo légèrement 
différent. 

L'explication? TANDY à décidé de remettre en cause 
l'exclusivité de son réseau de boutiques, et de 1e 
complèter par des distributeurs indépendants. Cecz 
n'est valable pour l'instant qu'aux Etats-Unis 

(On parle de 60 distributeurs pour commencer), ma= 
se généralisera sans doute aux autres pays : un 
bon moyen de complèter un réseau ‘que TANDY semble 
actuellement s'essouffler un peu à complèter. Et 
comme les concurrents du couleur semblent nombreux 
et bien armés, pourquoi refuser ce bon moyen 

Ce changement radical dans la politique de diffu- 
sion de TANDY sera sans doute assez contreversé cs 
les revendeurs existants, et notamment les fran- 
chisés. (Mais n'est-il pas question que TANDY 
emploie de moins en moins de franchisés?) Et quan® 
à toutes les boutiques françaises indépendantes 
qui auraient aimé commercialiser les TRS dans des 
conditions normales (ce qu'elles n'ont jamais pu 
faire), leur réaction sera-t-elle favorable ?? 





ù et 
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Véritas Technology Inc, 2375 Zanker Rd, Suite 255, 
San José, California 95131. 


General Software, 19 boulevard Montmartre, 
75002 Paris. j 


Tandy, 211-213 boulevard Mac Donald, 
75019 Paris. 


Espace-01, 7 rue de l'église, 92200 Neuilly 


MDD, 82 galerie des Damiers, Défense 1, 
92400 Courbevoie 


GES, 68, 76 avenue Ledru Rollin, 75012 Paris. 
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La stéréo 
sur Modèle 3 : 
Orchestra 90 





Nom : Orchestra-90 
Configuration : TRS-80 modèle 3, 16K 
cassette ou disquette 


Constructeur : Software Affair 
Distributeur : Graphie France 
Prix © Æ1500NESTIC 





Le numéro 1 de TRACE nous avait appris ce qu'était 
Orchestra-80 : un synthétiseur de musique pour TRS- 
80 modèle 1, s'adaptant sur la sortie bus de l'ordi- 
nateur. Aujourd'hui, nous parlerons d'un appareil 
similaire, conçu par la même firme (Software Affair 
Ltd) pour s'adapter sur le modèle 3, mais offrant 
deux possibilités très intéressantes : le son stéréo- 
phonique et des effets de percussion. Il est à noter 
qu'un modèle semblable existe également sur modèle 1, 
et se nomme Orchestra-85. 


L'ensemble Orchestra-90 est formé d'une petite carte 
supportant les composants du synthétiseur, terminée 
par un cêble venant s'enficher sur la sortie bus du 
TRS-80 modèle 3, d'un manuel en anglais (45 pages), 
et d'un programme fourni sur minidisquette. Une ver- 
sion cassette existe également. Dans les deux cas, 
une configuration de 16K de mémoire vive est suffi- 
sante. 





Orchestra-90 permet la génération de cinq "voix" 
simultanées (autrement dit, cinq sons), mais cette 
configuration n'est conseillée que si votre modèle 3 
est équipée de l'option "horloge rapide UMhz". 
Autrement, un maximum de quatre voix seulement est 
souhaitable, au-delà duquel la courbe de réponse des 
fréquences aigues serait trop limitée. 


Comme dans le cas d'Orchestra-80, ce synthétiseur 
vocal ne nécessite pas d'alimentation extérieure, 
ses circuits électroniques de faible consommation 
sont alimentés par les signaux fournis sur le con- 
necteur bus. La carte imprimée, d'une taille de 

66 x 77 mm, comprend 5 circuits intégrés, } boîtiers 
de résistances et trois condensateurs. Deux prises 
femelles type RCA sont utilisées pour raccorder le 
synthétiseur aux entrées stéréophoniques "haut ni- 
veau" (100 à 200 mV) d'un amplificateur (entrées 
tunner, AUX où magnétophone, par exemple). Ce câble 
n'est pas fourni. 


Orchestra-90 est relié au modèle 3 par l'intermédiaire 
d'un câble plat de 16 centimètres, au bout duquel 

est serti un connecteur encartable. ATTENTION 

tous les raccordements doivent être effectués avant 

la mise sous tension du TRS et de l'amplificateur, 
afin d'éviter des différences de potentiels toujours 
possibles entre les masses des deux appareils. 





En ce qui concerne le logiciel, le programme ORCH90/ 
CMD est composé + comme dans le cas d'Orchestra-80 - 
d'un éditeur (création des partitions musicales dans 
un langage simple), d'un compilateur (transcription 
des partitions en modules exécutables par le 
synthétiseur) et d'un système de gestion de fichiers 
(lecture et écriture des partitions sur cassettes 

ou minidisquettes). Un module d'initialisation 
permet également de définir des options comme le 
timbre, le nombre de voix, la vitesse d'exécution, 
etc. 


Un utilitaire (ORCHUTIL/CMD) permet la conversion 
des programmes musicaux entre supports (cassettes/ 
disquettes) et entre modèles (modèle 1/modèle 3). 
Mais le plus impressionnant, c'est la bibliothèque 
des exemples musicaux, composée de 45 morceaux, 
tous fournis sur la disquette. Et il y en a pour 
tous les goûts : Carmen, le Vol du Bourdon, Swanee, 
Yesterday, la Guerre des Etoiles, .les Aventuriers 
de l'Arche Perdue, etc... J'ai particulièrement 
apprécié (mais c'est une question de goût!) "Blues" 
avec son accompagnement de contrebasse très réa- 
liste. Vraiment, la stéréophonie et les effets de 
percussion donnent une toute autre dimension à ce 
synthétiseur. Après Orchestra-90, on a beaucoup de 
mal à revenir à Orchestra-80! Un seul reproche 
toutefois : il présente le même défaut que ce der- 
nier car il n'y a pas de possibilité de moduler la 
puissance sonore (effet "boîte à musique"). 


Pour les mélomanes qui ne veulent pas se fatiguer à 
transcrire des airs connus, on peut se procurer une 
autre disquette nommée "Greatest Hits" ,commerciali- 
sée par Software Affair, et qui contient 22 mor- 
ceaux classiques ! 


Jean-Pierre du Tillet 
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essai 
Dites-le avec 
l’accent belge. 





… Où l’accent texan 





Après l'euphorie des premiers jours, les possesseurs 
de TRS-80 sont rapidement génés par l'impossibilité 
d'afficher des caractères minuscules à l'écran. Si 
le maniement du fer à souder vous est familier, une 
transformation simple permet de résoudre ce problème 
Le cas échéant, un "kit minuscule!" est disponible 
chez Tandy qui se charge de l'installer. Cependant 
le problème n'est que partiellement résolu : les 
caractères accentués utilisés en français n'appa- 
raissent toujours pas ... 


D'où l'intérêt de la solution proposée par la société 
belge BCM : un générateur de caractères qui vient 
s'emboiter en lieu et place du circuit d'origine. 
Pour la première fois, j'ai osé me lancer dans la 
modification de mon système ! Après avoir démonté 
le clavier, il est enfantin de repérer le circuit 
Z29 (le seul comportant 18 pattes), de le sortir 
avec l'aide d'un tournevis (attention, ce circuit 
est soudé sur les modèles anciens), puis d'enficher 
à la place le connecteur 16 broches relié par un 
câble plat au nouveau circuit enrobé de résine 
(pour décourager les imitateurs?). I1 ne reste plus 
qu'à remettre en place le clavier pour que le 
système soit prêt à fonctionner, le tout sans avoir 
eu à souder quoi que ce soit ! 


Cette modification est livrée avec une disquette 
contenant les modules logiciels nécessaires pour 
mettre en oeuvre ce nouveau générateur de carac- 
tères soit sous TRSDOS, soit sous le programme de 
traitement de textes ELECTRIC PENCIL (la touche de 
fonction est alors simulée par la touche CLEAR), 
soit sous BASIC. Les instructions accompagnant la 
documentation permettent de générer très simple- 
ment et d'une manière automatique les versions 
modifiées de TRSDOS et de PENCIL, incluant le 
module de gestion des caractères accentués, alors 
qu'un module auto-translatable donne la même 
fonction sous BASIC. (Je n'ai toutefois pas réussi 
à obtenir le caractère "oe colle" avec le nouveau 
PENCIL). 


Si vous avez la chance de posséder une imprimante 
disposant des caractères accentués, deux modules 
(compatibles NEWDOS 2.1) sont fournis pour imprimer 
soit avec une DAISY Printer II, soit avec une 
Centronics 737-2: 


La documentation comprend deux pages d'explications, 
complètes et faciles à comprendre, un fichier PENCIL 
sur disquette pour les informations complémentaires 
sur le logiciel, ainsi qu'un jeu d'auto-collants 
pour marquer les touches commandant les caractères 
accentués, les commandes de PENCIL, et pour trans- 
former le clavier QWERTY en clavier AZERTY. 


rom nn + ne Pierre tanory 


PRIX : 375 FF + 10,70 FF (Par mandat international) 


FOURNISSEUR 


(1) B CM (Bureau de Calcul Mathématique) 
24 Route de la Sapinière 
1960 BANNEUX Belgique 
No Banque : 240-0622552-10 
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Pour ceux qui utilisent le traitement de textes 
SCRIPSIT, le modèle I peut être amélioré considé- 
rablement en installant le kit des minuscules 
accentuées, maintenant vendu par TANDY (795 F) ; 
ce kit est le même que celui offert par BCM qui en 
est d'ailleurs le fabricant. (Voir ci-dessus). 


Il est constitué de deux parties : matériel et 
logiciel. 


Le matériel fourni par TANDY est un circuit intégré 
générateur de caractères modifié, enrobé complète- 
ment dans la résine verte ; un câble en nappe le 
relie à un connecteur mâle qui s'enfiche à la place 
du générateur de caractères minuscules standard. Un 
petit interrupteur est relié par 2 fils au boîtier 
vert, et se pose sur le châssis du TRS, à l'arrière: 
il suffit de percer un petit trou ou d'agrandir 
légèrement une des ouïes d'aération du boîtier. Il 
n'y a aucune soudure à effectuer, ni de trace de 
circuit à gratter. 


Un jeu d'étiquettes autocollantes est fourni ; 

chaque étiquette se place sur les touches du 

clavier qui sont réaffectées, certaines se placent 
en face avant ; au total 42 étiquettes sont placées 
qui transforment votre clavier en un véritable 
clavier "AZERTY" standard français : tous les accents 
sont générés, ainsi que le ç et le symbole $, et 
s'affichent sur l'écran. 


I1 faut à peu près une heure de travail pour dé- 
monter le clavier, installer le kit, remonter le 
clavier et coller proprement les étiquettes. 


La disquette fournie par TANDY comprend le TRSDOS 
2.3, BASIC, et une version de SCRIPSIT adaptée au 
nouveau clavier : SCRIPSIT/LCA (Lower Case Azerty) & 
avec SCRIPSIT/LCA, quelques fonctions ont été 
déplacées : par exemple la touche <CLEAR> remplace 
la touche <CONTROL} de SCRIPSIT, la touche 

€BREAK) est remplacée par ÇSHIFT BREAK) , etc 
Cependant, la réadaptation est très rapide grâce 
aux étiquettes indiquant les fonctions. 


Attention, si vous étiez dejà utilisateur de 

SCRIPSIT, les touches €A) et 4(Q) sont inversées, 

ainsi que les touches €Z) et é€W) . N'oubliez 

donc pas de permuter aussi les auto-collants 

d'origine de SCRIPSIT : (BLOCK} , <worD} ; 
£WINDOWÿ et la flèche à gauche. 


Le texte avec ses minuscules accentuées est ensuite 
édité sur l'imprimante TANDY à marguerite DW II 
avec une vitesse et une qualité tout à fait profes- 
sionnelles. 


Deux prob}èmes cependant : si vous avez une autre 
imprimante que la DW II, vous ne pouvez pas utili- 
ser ce kit pour les éditions car les minuscules 
sont transformées en caractères graphiques ou en 
caractères de fonction. 


Ensuite, dans les versions de SCRIPSIT accentué 
jusqu'ici livrées par TANDY, une surprise dés- 
agréable : il n'est plus possible d'arrêter 
l'impression en cours de route ; cette fonction 
était assurée par <CLEAR} sur SCRIPSIT normal, 


et cette touche est devenue la fonction <CONTROL) : 
la fonction d'arrêt d'impression devrait maintenant 
être assurée par les touches (SHIFT-CLEAR} ; 

eh bien ! Evitez-la car le programme se "plante" 

et on est obligé de recharger tout : le DOS, 
SCRIPSIT, et votre texte si, par chance, il était 
sauvegardé. : 


Cette "erreur" du programme est connue des magasins 
TANDY, mais il n'y a pas encore de solution; disent- 
ils. TANDY-FRANCE et même TANDY-EUROPE-NANINE, eux, 
disent tout ignorer du problème : quand donc prendra 
t-on les utilisateurs au sérieux ? 


Si vous êtes la malheureuse victime de SCRIPSIT/LCA, 
essayez le programme en BASIC ci-joint qui semble 
apporter la solution : il modifie 5 octets de 
SCRIPSIT/LCA et nous a été fourni par le créateur 
du kit, le Bureau C. MICHEL. 


Encore une recommandation : si vous utilisez 
d'autres programmes sur votre TRS, ou d'autres 

S E D , ils fonctionneront normalement avec l'inter- 
rupteur sur la position AR (AZERTY RESTREINT), 
c'est-à-dire en clavier anglo-saxon QWERTY. Or, si 
les touches sont recouvertes entièrement avec les 
adhésifs, vous ne savez plus où est le A, où est le 
M, etc... alors, avant de coller, découpez l'éti- 
quette en 2 pour conserver quand même les gravures 
d'origine apparentes ! 


CONCLUSION 


L'ensemble TRS-80 MOD-1 avec 2 unités de disquettes, 
32K de mémoire et l'imprimante à marguerite DW II 
forme un poste complet de traitement de textes de 
qualité professionnelle pour un coût inférieur à 


language 





26 000 F HT. On peut regretter qu'il ait fallu 
attendre si longtemps pour que les claviers soient 
francisés alors que bien des concurrents, 
même américains, sont vendus 
clavier AZERTY. À quand 1 
modèle III, Color ? 









NDLR : Depuis l'écriture de cet article, un kit 
similaire est disponible pour le modèle 3, 
apparemment d'origine BCM lui aussi. Si nos lecteurs 
pouvaient nous donner leur opinion sur ce produit... 


DATAS0,232,55,211,235 
F$='"'SCRIPSIT/CMD'" 
C$=STRINGS(2,0) 
CLS:PRINT''SCRIPSIT 
OPEN'"'1",1,F$ 

CLOSE] 

OPEN'"'R'",1,FS 

GETI ,22 

FIELDI ,122ASAS$,5ASES$ 
IFRIGHT$S(ES ,2) COC$STHEN300 
c$="" 

FORI=1TOS 

READJ 

C$=c$S+CHR$(J) 

NEXTI 

LSETES$=CS 

PUTI ,22 

CLOSE 

PRINT''MODIFICATION TERMINEE" 
END 

PRINT''PROGRAMME NON CONFORME"! 
STOP 


MISE A JOUR 1.0'":PRINT 








APL sur TRS 
pourquoi pas! 





En fouillant dans les rayons d'une boutique informa- 
tique, j'ai découvert une merveilleuse cassette 

APL 80, le langage APL pour TRS-80 (modèle I,16K). 
Cela m'a rappelé la présentation vers 1975, du 
"miniordinateur" canadien MCM70 qui travaillait en 
APL. Ce système m'avait fortement impressionné 
d'une part, je voyais pour la première fois un 
ordinateur portable et disposant de performances 
assez proches du "vrai" ordinateur IBM1130 que 
j'utilisais alors pour des calculs scientifiques ; 
d'autre part, j'avais ainsi facilement accès aux 
possibilités du langage APL qui dans mon esprit 
était jusque là resté plus ou moins comme une 
curiosité scientifique sans applications vraiment 
concrètes. En effet, comme tous ceux qui ont quel- 
ques notions de programmation en langage symbolique 
(Fortran, PL/1, Basic..), j'avais jusqu'alors été 
tellement surpris lors de l'examen de listings APL 
que je n'avais pas eu envie d'étudier ce mystérieux 
dialecte. 


Aujourd'hui, je pense que le défaut majeur du 
langage de programmation APL, c'est qu'il est arri- 
vé trop tôt et que ce langage parait encore à ce 
jour en avance sur les autres. 


Pour une dépense relativement modeste (environ 

150 F), j'ai essayé la programmation en APL et au 
bout de quelques heures, j'ai bien compris de quoi 
il s'agissait : malgré les limites imposées par 

un modèle I, 16K, et la cassette APL-80, l'expé- 
rience n'en est pas moins très intéressante. 
Evidemment APL 80 n'est pas APL puisqu'on ne dis- 
pose pas du clavier avec les caractères spécifi- 
ques à ce langage, mais ce n'est pas cette série 
de symboles bizarres qui fait sa puissance. 


Je ne vais bien sûr pas essayer ici de présenter 
tout ce qu'on peut faire avec APL 80 (ou APL) ; 
les quelques exemples qui sont présentés ont pour 
but de montrer le plus grand paradoxe d'APL : ce 
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izngage est à la fois très simple et très compli- 
qué. On construit rapidement des programmes puis- 


sants, capables de traiter des problèmes complexes ; 
toutefois seule la connaissance des caractéristiques 


_de toutes les fonctions et surtout la pratique 
permettent de réaliser des programmes concis 

et très performants. En contre-partie, ces program- 
mes ont, avouons-le, une relecture ou une reprise 
pour des modifications, souvent assez pénibles. 


Lorsqu'on aborde un nouveau langage, on essaie de 
programmer par exemple : écrire "bonjour", calcu- 
ler 3+4, faire la somme des 10 premiers nombres, 
calculer la moyenne d'une suite de nombres... 


En APL 80, on frappe "BONJOUR" et le mot BONJOUR 
s'affiche immédiatement (au lieu de PRINT "BONJOUR" 
en Basic), et on frappe 3+4, le résultat apparait 
à la ligne suivante (au lieu de PRINT 3+4). Si on 
veut sauvegarder le résultat, il suffit d'affecter 
ce nombre à un nom symbolique : 

SOMME €— 


Le caractère spécial € permet donc l'affectation 
et le nom symbolique peut comporter de 1 à plus de 
50 caractères (maximum une ligne). Il est également 
possible d'affecter d'abord le résultat (implicite) 
de l'expression : 


SOMME <— 3+4 


Pour connaître la valeur affectée à SOMME, il suffit 


alors de frapper ce nom : 
SOMME 


7 


La machine APL, en mode exécution, ne connait que ces 


2 types d'instructions 
. l'affichage de la valeur affectée à une variable 


. l'affectation, à une variable symbolique, d'une 
constante ou le résultat implicite d'une expres- 
sion. 


Jusque là, c'est élémentaire et cela ne présente 
guère d'intérêt. Dans l'expression précédente, le 
symbole + est en APL, une fonction dyadique, c'est- 
à-dire, une fonction qui agit sur deux variables. 
11 existe de la même manière, des fonctions nila- 
diques (sans argument) et des fonctions monadiques 
(avec un seul argument). Chaque fonction APL est 
représentée par un symbole et,avec l'APL 80 dans sa 
version cassette, on dispose de la plupart des 
fonctions APL. L'astuce utilisée pour représenter 
les symboles spécifiques est très facile à retenir, 
et se rapproche beaucoup des symboles APL : 

en appuyant sur la touche "shift", on obtient les 
lettres, mais précédées d'un point, ainsi la fonc- 
tion APL L est représentée sur l'écran par .L, 

de même T par .T-etc... 


Nous avons vu comment affecter à une variable un 
nombre scalaire ; de la même manière, on peut 
affecter à une variable une suite de nombres, qui 
correspondent aux composantes d'un vecteur : 


VECTEUR €<— 123 5 
pu une chaîne de caractères 


CHAINE €—"ABCDEF' 


Une particularité de l'APL est l'emploi de chaînes 
de caractères vides 


CHVIDE <— !'! 


ou de vecteurs vides ; ces derniers sont générale- 
ment obtenus par l'application de certaines fonc- 

tions. Par exemple, la fonction génératrice d'in- 

dices .IN (AN en APL) donne une suite d'entiers 

de 1à N 
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SHE ES 
SUITE 
1 NP ENS 


Si l'argument est nul, le vecteur est vide 


V1 0 
V 
(vide) 


On voit donc qu'en APL il n'existe pas de déclara- 
tions comme en BASIC ou PASCAL. Les opérations sur 
les vecteurs, ou plus généralement sur les tableaux 
à plusieurs dimensions, se font exactement comme 
sur les scalaires 


V16— 1 2 3 

V2€— 2 4 6 

W <— V1 + V2 
En dehors des nombreuses fonctions APL, des opéra- 
teurs, associés à une fonction, permettent des for- 
mes de fonctions particulièrement intéressantes : 
par exemple, la "réduction" f/V applique la fonction 
f sur les éléments du vecteur du tableau V de la 
manière suivante 


f/V est équivalent à V1 f V2 f V3 si V1, V2, V3 
sont les éléments de l'ensemble V ainsi +/1 2 3 


: 


est équivalent à 1+2+3. 


La somme des 10 premiers nombres devient alors très 
facile à programmer ! 


S <—— +/.I 10 


Maintenant, on commence à voir nettement l'intérêt 
de ce langage. L'ensemble des fonctions APL peut 
être complété par des fonctions créées par l'utili- 
sateur ; celles-ci s'emploient rigoureusement de 

la même manière que les autres fonctions. En APL 80, 
pour passer en mode définition, on utilise la com- 
mande )DEF, par exemple 


)DEF R <-MOY V 
1FSER < (+/V) % .P 


Pour quitter le mode définition, il faut enfoncer 
la touche "Break". Cette fonction MOY calcule la 

moyenne d'une suite de nombre représentée par V. 

Pour l'appeler, il suffit d'écrire 


RÉ RERRDS 256, 32, 0-8 
MOY KW 


Remarquez la facilité d'appel d'une fonction : 
les arguments sont transmis automatiquement, 
quel que soit leur type. 


Dans une "fonction utilisateur", on peut utiliser 
la 3ème (et dernière) instruction APL : le branche- 
ment, représenté par le symbole —> qui signifie 
aller à l'instruction dont le numéro est donné par 
l'évaluation de l'expression située à droite du 
symbole — . Soit n le résultat de l'expression 
(qui peut être tout simplement un nombre) ; alors, 
si n ne correspond à aucun numéro d'instruction de 
la fonction, on quitte la fonction : c'est l'équi- 
valent de RETURN en Basic ou en Fortran ; sin 

est un vecteur vide (ou chaîne de caractère vide), 
l'exécution de la fonction continue en séquence 
(l'instruction de saut est ignorée). Les deux 
programmes donnés en exemple assurent le calcul 
des racines d'un trinome (les listes données ici 
ont été obtenues à partir de la version disque 
d'APL 80). La première version est assez détaillée 
et fait appel à la fonction IF, définie de la 
manière suivante : 


)DEF Ze AIFB 
1-:27:€— BYA 
La deuxième version est plus concise. 


RACINE€<TRINOME ABC 
À <ABC € 1) 


B +<ABC € 2) 
C <ABC € 2) 
DISCRIM +CB xB )_ 4xA xC 
+RACDBLE IF DISCRIM = @ 
RACINES IF DISCRIM ) @ 
+ZERORAC IF DISCRIM « @ 
RACDBLE :X +_B % 2xA 
RACINE <+X :X 

+ @ 

RACINES :D <+DISCRIM *# .5 
X1 +C_B D )% 2xA 

X2 +(_B +D )% 2xA 

RACINE +X1 ,XZ 

+ 0 
ZERDRAC 


8 
1 
2 
= 
CA 
5 
ë 
7 
8 
3 
1 
L 
1 
1 
1 
1 
1 


TRINOME: 1-1. -6 


ON CA EE LA fo be ES 5 me ns où ns un ns n8 es ns 


:' PAS DE RACINE’ 


So 


Ex] 


TRINOME 1 4 4 


FL Te 
TRINOME 1 1 1 
PAS DE RACINE 


R&TRN V 
DRECV ac 
ACL SEZ 20 
Li Di <D * 


K2 Tete VE 
1 KE 


DINAN r-S 
NS 9 n9 59 ns nu vu 5 ns 


En APL, il n'existe pas d'instructions de boucle, 
il faut donc initialiser, incrémenter et tester le 
compteur. Cela n'est pas très génant, car l'utili- 
sation de certaines fonctions évite l'emploi de 
boucles, donc leur programmation est moins fré- 
quente qu'avec les autres langages. 


Finalement, ce qui est le plus intéressant, c'est 
de charger sur le TRS-80 (machine à tout faire!), 
la cassette APL 80 et de créer de nombreux prog- 
rammes, avec évidemment, au début, des erreurs de 
programmation. Que le futur utilisateur d'APL soit 
rassuré, les erreurs sont signalées explicitement 
et, par la très forte interactivité, la correction 
est aisée. Au bout de quelque temps, le nouvel 
APListe aura envie de découvrir APL 80-disque, qui, 
pour une dépense encore modeste, donne presque 
toutes les possibilités de l'APL et permet égale- 
ment d'utiliser des fonctions écrites en langage 
machine. Ë 
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On a tendance trop fréquemment à démontrer que tel 
langage est plus intéressant qu'un autre, les compa- 
raisons sont toujours délicates et à mon avis, il 
n'est pas possible d'affirmer qu'un langage est 

dans tous les cas meilleur qu'un autre. 


Chaque langage de programmation possède ses avan- 
tages et ses inconvénients et surtout convient 

mieux à certains types de traitement. Pour avoir 

une bonne opinion, il faut pratiquer : le TRS-80 est 
une machine universelle qui autorise l'emploi de 
nombreux langages (assembleur, Fortran, APL, Pascal, 
Forth, Lisp...). A chacun ses préférences ! 


Claude NOWAKOWSKT 
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THE CUSTOM TRS-80 & OTHER MYSTERIES 
Par Dennis Kitsz 


Editeur : IJG Inc. 
Prix 5 280;E TTC 
335 pages - broché 





Si vous êtes de ceux qui cherchent à transformer 
leur modèle 1 par des modifications du logiciel ou 
du matériel en une machine plus puissante, ce livre 
est pour vous. De même si vous voulez simplement 
mieux connaître comment marche votre ordinateur, 
vous trouverez dans cet ouvrage une mine de rensei- 
gnements. 


Il y a tout de même une réserve à faire en ce qui 
eoncerne la primeur de certains chapitres. Dennis 
Bathory Kitsz qui signe ce livre est un des auteurs 
américains les plüs prolifiques dans le domaine des 
extensions du TRS-80. Ses articles paraissent dans 
plusieurs revues américaines spécialisées dans ce 
matériel. Le noyau de ce livre est une compilation 
d'articles publiés précédemment. Si vous lisez déjà 
tout ce qui s'écrit sur votre machine, vous serez 
peut-être un peu déçus de ne pas découvrir grand 
chose de nouveau. - 


A moins que, comme moi, vous n'ayez quelques diffi- 
cultés à retrouver l'article que vous cherchez dans 
des piles de revues qui grandissent chaque mois 


est-ce 1a pile du bureau, celle du coin repassage, 
celle du garage ? A moins que dans les cartons à la 
cave ... ? Ah, si on avait un peu de temps, on 
pourrait écrire un prbgramme qui ...! Enfin c'est 
assez pratique d'avoir réuni toutes ces idées dans 
un volume suffisamment épais pour qu'on ne l'égare 
pas facilement. 


Il faut dire que ce livre est tout de même augmenté 
de plusieurs chapitres qui fournissent des informa- 
tions de base pour vous mettre en mesure d'attaquer 
avec quelques chances de succès les modifications 
matérielles proposées. 

Vous y trouverez la liste des outils et du petit 
matériel courant qui sont nécessaires, une intro- 
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duction à la théorie de l'électronique, des indi- 
cations sur la manière de lire et d'interprêter un 
schéma, des conseils pratiques pour souder, manipu- 
ler des circuits ou simplement monter ou démonter 
l'ordinateur ou l'interface. J'ai trouvé ici un 
conseil qui m'a été tout à fait utile. Depuis quel- 
que temps, à force de modifications et d'ajouts, le 
clavier de mon modèle 1. baillait lamentablement 
plus moyen de le fermer complètement. C'était un 
vrai plat de spaghetti ! Grâce au conseil tout sim- 
ple de ce livre, tout tient à nouveau, et les vis 
sont remises en place. 


Une autre partie du livre, à ma connaissance inédi- 
te, se rapporte aux pannes de l'ordinateur, de ses 

périphériques les plus courants, la manière de les 

éviter, de les diagnostiquer et de les réparer. 


Nous en venons à la partie essentielle, qui justifie 
le titre du livre, "le TRS-80 sur mesure". Des 
modifications de logiciel d'abord, routines de dri- 
ver (ou "pilotes" - parlons français, bien que ce 
livre soit, lui, en anglais !). Pilotes, disions 
nous donc, de clavier (antirebond, touches à répé- 
tition, minuscules, graphiques, sonores, etc) d'im- 
primante, de lecture rapide des cassettes. Des 
extensions du BASIC, des chargeurs spéciaux de pro- 
grammes, l'autoexécution d'un programme BASIC charge 
à partir d'une cassette, programmes de musique, etc, 
etc - 


Un nombre assez impressionnant de modifications du 
matériel sont ensuite proposées. Nous trouvons, à ce 
sujet : le branchement d'un deuxième clavier, l'ajout 
d'un clavier hexadécimal, la vidéo inverse, totale 
ou programmable caractère par caractère, les minus- 
cules, la vitesse rapide, les MEM niveau 1 et 2 

dans la même machine, les extensions de mémoire, le 
graphique haute résolution, le remplacement de la 
MEM par de la MEV, l'interfaçage avec des périphéri- 
ques non standard, l'horloge temps réel, l'utilisa- 
tion de la partie de mémoire non occupée pour créer 
des "bancs" de mémoire sélectables et extensibles 
presque à l'infini ... et d'autres encore que je 
vous laisse découvrir par vous-mêmes. 


Certaines modifications paraissent très complexes, 
et demandent certainement une solide aptitude ma- 
nuelle et théorique. Mais même sans aller jusqu'à 12 
réalisation systèmatique des montages proposés, ce 
livre nous apprend beaucoup sur le modèle 1 et ses 
périphériques, et mérite sa place dans votre biblic- 
thèque. 


LE TOUR DU TRS-80 EN TROIS TOMES, avec : 
La pratique du TRS-80, tomes I, II et III 
Par Pierre Giraud et Alain Pinaud 


Editions du PSI 
Prix respectifs : 65, 85 et 65 F TTC 
128, 212 et 128 pages - brochés 


Existe-t-il des propriétaires de modèle 1, de machi- 
nes compatibles ou même de modèle 3 qui n'ont pas lu 
au moins le premier tome de cette série ? 


J'en connais un certain nombre qui ont commencé par 

ces livres pour mieux arrêter leur choix ou pour se 

laisser persuader que leur vie sans ordinateur indi- 
viduel serait désormais impossible ! 


Voilà, en tout cas, une série utile pour faire 
connaissance - en français - avec la machine que 
vous envisagez d'acheter, que vous venez d'acheter, 
ou que vous voulez utiliser au mieux. 


Le tome 1 présente l'ordinateur, ses périphériques 
et ses logiciels de base. Il donne une introduction 
suffisante de la théorie du matériel (logique élé- 
mentaire, microprocesseur) et du logiciel (calcul et 
logique binaire, commandes d'édition, principes de 
base de la programmation) pour pouvoir aborder en- 
suite la présentation du BASIC. Celui-ci n'est pas 
présenté instruction par instruction mais plutôt 
selon une progression qui facilite sa compréhension 
et son apprentissage. Cette description du BASIC est 
étayée par des exemples pratiques qui montrent 
l'action de chaque instruction ou fonction du 
langage. À la suite, plusieurs petits programmes 
bien documentés et expliqués font la synthèse des 
chapitres précédents. Puis ce livre se termine sur 
un résumé des instructions BASIC avec leurs fonc- 
tions et diverses tables de conversion. A noter éga- 
lement qu'une édition récente de cet ouvrage consa- 
cre au modèle 3 un chapitre entier. 


Le tome 2 aborde un sujet plus difficile : si nous 
programmions en assembleur ? 


Ce tome apporte de nombreuses informations pour 
programmer en assembleur sur le TRS-80, mais ce 
n'est hélas pas une initiation et il est supposé que 
le lecteur possède déjà les rudiments du langage. 


On y aborde également quelques instructions BASIC 
surtout utilisées en relation avec l'assembleur 
comme PEEK, POKE, INP, OUT, DEF FN, USR, DEF USR, 
etc. 


Y figurent aussi des informations pratiques 
sur l'utilisation de l'éditeur/assembleur EDTASM, 





et sur quelques programmes d'aide à la mise au 
point. Les exemples d'application (extensions BASIC, 
tracé graphique d'un segment de éroîte, par exes- 
ple), sont un bon début pour 12 construction é 
notre bibliothèque de routines assesbleur. 


Sachant qu'ily a un manuel avec le mod 
il y a un manuel avec l'éditeur-assembl à 
se demander si ces deux livres ne font pes 
emploi avec les manuels standard. 

En réalité, il n'y a pas deux auteurs qui disent 12 
même chose avec les mêmes mots, ét pour apprendre 
un sujet nouveau, lire et consulter plusieurs ouvra- 
ges sur le même sujet (appelons cela la lecture 
parallèle) est une des méthodes les plus efficaces 
qui soient. Sans compter que ces livres avportent 

en français des informations de base introuvables 
dans les manuels d'utilisation. 

Deux petits reproches toutefois, sur cet ouvrage 

les premières éditions comportaient un certain nom- 
bre d'erreurs propre à plonger le lecteur novice 
dans la plus profonde confusion. Il semble, fort 
heureusement, que cela ne soit plus le cas mainte- 
nant.Vérifiez donc,si vous achetez cet ouvrage, qu'il 
s'agit bien d'une édition récente (la date figure 

en fin de livre). Je n'ai pas compris, d'autre part, 
le malin plaisir que les auteurs prennent à décrire 
un programme de mise au point - paraît-il "efficace" 
- mais que l'on ne peut trouver ni acheter nulle 

part ! 





Mais venons-en au tome 3 : = 

vous pouvez préparer votre fer à souder ! Ou peut 
être voulez-vous simplement savoir et comprendre ce 
qui se cache sous votre clavier, ou dans votre 
interface d'extension ? 

Première lecture : c'est si compliqué que çà ? 
Deuxième lecture : ah oui, c'est bien sûr ! 
Troisième lecture : finalement ce n'est pas si 
difficile ! 


Un livre qu'on peut lire trois fois au moins, et 
même plus, pour le prix d'un seul, cela ne se trou- 
ve pas partout. 

Plus sérieusement, disons que ce livre est d'un 
abord parfois difficile pour un non-spécialiste. Je 
ne sais si le sujet pouvait être traité de façon 
plus abordable. Il m'a vraiment fallu "m'accrocher" 
pour le comprendre, et je ne l'ai fait que parce 

que le sujet m'intéressait beaucoup : il vous permet 
sur votre modèle 1 d'augmenter la vitesse, d'instal- 
ler un "beep" sonore, des minuscules, et un bouton 
reset accessible et qui marche en toutes circons- 
tances, tout cela semble donc une bonne affaire. Mais 
attention tout de même : ce livre est dangereux ... 
et ne doit pas tomber entre des mains innocentes ! 


Je profite de cet article pour lancer un appel aux 
copains à qui j'ai prêté ces livres. En fait, je 
les ai prêtés souvent, et je ne sais plus qui les 
a en ce moment ! Si vous pouviez me les rapporter, 
cela m'arrangerait beaucoup. 


En attendant il ne me reste qu'à espérer la sortie 
d'un tome 4, car les disques, le DOS et le BASIC 
disque, qui mériteraient bien un traitement identi- 
que, n'ont pas été abordés dans les trois tomes 
précédents. 


Molfgang Lauter 
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Tue B,°0c 


DEUX TOUCHES SHIFT, COMME TOUT LE MONDE ! 





Le modèle 3, comme la plupart des ordinateurs, possède deux touches SHIFT sur son clavier, Rien de surprenant 
jusque là, direz-vous. Mais saviez-vous qu'il est possible de distinguer par programme, la touche gauche de 12 
touche droite ? Cela fait partie des petits détails qui distinguent le modèle 3 du modèle 1 et cela s'en ress== 
sur certains programmes en langage machine qui ignorent tout simplement la touche SHIFT de droite. Sur le modez= 
1, les deux touches SHIFT étäient physiquement reliées ensemble, et la lecture de leur état pouvait se faire em 
consultant l'adresse 3880H : 1 signifiait que l'une des touches SHIFT était enfoncée. Sur le modèle 3, les deux 
touches sont séparées, et la consultation de l'adresse 3880H donne cette fois : 


0 : aucune touche SHIFT enfoncée 
1 : touche SHIFT gauche enfoncée 

- ? : touche SHIFT droite enfoncée 
3 : les deux touches enfoncées 


Les instructions POKE et DEFUSR (version disquette), ainsi que les fonctions PEEK et VARPTR, opèrent uniquement 
sur des valeurs entières, c'est-à-dire comprises entre -32768 et +32767. Cela signifie que lorsque l'on veut 
atteindre l'adresse mémoire 32768, il faut utiliser la valeur -32768 ... La fin de mémoire (OFFFFH) corresponéræ 
à la valeur -1. Bien entendu, le problème ne se pose pas pour les utilisateurs de configuration 16K, la dernière 
adresse de mémoire vive étant justement 32767. Pour les autres utilisateurs (équipes de l'extension mémoire), 12 
conversion peut se faire ainsi (AD étant l'adresse mémoire a atteindre) : 


IF AD > 32767 THEN AD=1*(65536-AD) 
POKE AD, ... 


Mais si l'on désire une formule plus "linéaire" et qui, de plus, évite un test de condition, on peut tout simpl== 
ment faire : 


AD=AD-INT(AD/32768)*65536 
POKE AD,... 


En appliquant cette formule une seconde fois, on retrouve la valeur initiale ... Méditez la-dessus ! 


Certains programmes en langage machine commencent leur initialisation en restituant dans les blocs de contrôle 
concernés, l'adresse ROM des Pilotes (drivers) clavier et écran. Sur le modèle 1, cela a pour effet de perdre 
l'éventuel traitement anti-rebonds du clavier chargé par le DOS notamment. Sur le modèle 3, les mêmes programmes 
ne fonctionnent plus du tout ! Cette dernière cause est simple (mais le remède aussi) : les adresses des pilotes 
clavier et écran sont différentes entre les deux modèles : 







Adresse pilote écran 
dans bloc de contrôle 


Adresse pilote clavier 
dans bloc de contrôle 








Avec un utilitaire de recherche, il vous suffira de remplacer les "E3 03" par des "24 30" et les "58 O4" par 
des "73 OU". En somme, rien de bien méchant ! 


Sur le poquette, il n'est pas possible, à l'instar du modèle 1, de faire : 
IF A>1 AND B>2 ... 


ou bien : 
TRAIT OR DENTS 
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Par contre, on peut produire le même effet en écrivant 


IF (421)*(B 22) 
ou bien : 
IF (A>1)+(BD2) 


comme cela était aussi le cas sur le "level 1" du modèle 1. 


0 0 200 0 00 0 00 2 2 
mo om ce 0 00 0 0 0 oo 0 40 0 00 0 0 0 0 


TRUC DANS LA POCHE ! 


Lorsque vous voulez imprimer le résultat d'un calcul sur l'imprimante (en mode calcul), vous devez passer en 
mode "PRO", puis faire : 10 PRINT (valeur à calculer). Cette solution n'est pas très satisfaisante et je lui 
préfère celle-ci : 


10:"C'AREAD A 
20:PRINT A 
P5S2PRINTS 2": 
PRINT: 
PRINT" 
30:END 


I1 suffit alors de frapper l'expression à calculer en mode DEF, et d'appuyer sur SHFT C pour imprimer le 


résultat. 
(Jean-David Blanc) 
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BACKUP REJETE ? 


Rien de plus énervant, en voulant faire une sauvegarde d'une disquette TRSDOS, de se faire refuser le "backup" 
sous prétexte que la disquette destination contient déjà des informations. Il y a deux solutions à ce problème 
effacer la disquette à l'aide d'un aimant que l'on "ballade" sur la pochette (demande certaines précautions !) 
ou formatter préalablement la disquette (avec l'utilitaire FORMAT) en donnant à la disquette le MEME NOM que 
celle que l'on veut dupliquer, ainsi que le MEME MOT DE PASSE (Password) ... si l'on se souvient de celui-ci ! 
Le programme FORMAT détecte alors que la disquette contient des informations, et il suffit de répondre "y" (yes) 
à la question. Le BACKUP se passe alors sans problème. 


utilitaire 
Un programme pour mettre 
à jour vos disquettes 











Amateurs de cassettes, tournez la page (mais il faudra 


tout de même y- penser un jour, non ?)! Ce programme ne SyS0/5YS 
concerne que les possesseurs de minidisquettes utili- 3ÿS2/SYyS 
sant un système d'exploitation capable d'exécuter SYS3/SYS 
l'ordre COPY sous BASIC (LDOS, Newdos ou Newdos80 par SYS6/SYS 
sonne. - SYS8/SY5 
Prenons le cas d'Apparat, créateur du Newdos, qui SYS11/SY 
publie régulièrement des "zaps" (modifications) de SyY317/SYS 
ses systemes d'exploitation. Cela part d'un excellent SYS14/9YS 
principe d'assurer la "maintenance" de ses produits, SYS14/SYS 
mais cela devient une véritable corvée lorsqu'il faut GY917/3YS 
appliquer ces modifications sur toutes ses disquettes. SYS18/5Y5S 
Avec le programme ce-dessous, il suffit d'effectuer BASIC/CMD 
les corrections concernées sur une seule disquette EDTASH/CHD 
(que nous appellerons disquette mère), et la copie sur DISASSEM/CMD 


les autres disquettes se fera automatiquement et de SUPERZAP/CMD 
manière sélective. Cela signifie que le’ fichier -SYS10/ ; 
SYS par exemple, ne sera copié sur la disquette de 





destination (celle devant être mise à jour) que si son En lancant MAJZAP, tous les programmes de cette liste 
ancienne version y figure déjà. figurant aussi sur la disquette de destination seront 
mis à jour. 
Un fichier descripteur constitué par Scripsit par Normalement, le programme tel qu'il est décrit est 
exemple, décrira le nom des programmes devant être utilisable pour des configurations de deux mini- 
modifiés. Dans le cas de Newdos-80, noùs l'avons disquettes mais peut être adapté à un ensemble mono- 
appelé ZAP54/DAT (54 étant le numéro du dernier "zap") disquette en modifiant la chaîne AS située en ligne 
et il est constitué ainsi : 200. SK 
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10 ‘ Mise a Jour des “zars” - (C}) TRACE ct JP du Jeiiet F8 
20” EC 
39 CLS : PRINIr I SE ë . GeHeER HE = ZAPS" 39 
40 PRINT:STRINGS(39:CHR#(131)) 70 
50 CLEAR 1000 : DIM NF#(50) 33 
60 LINEINPUT"-NOM DU FICHIER ZAP 7° : NZS 80 
70 INPUT'NUMERO DISQUE SOURCE (0 À 4)":5D$ : SDS=": "2 BF 
80 INPUT'NUMERO DISQUE DESTINATION (0 & 4)*:DDS:DDs=": "09 71 
00 N=1 : OPEN "I'r1427N7$ 74 
100 IF EOF(1i) THEN 140 23 
110 LINEINPUT#1:NFS(CN) 28 
120 IF NF$(N)="" OR LEFTS(INFS(N)721)=" © THEN 140 21 
130 N=N+1 : GOTO 100 B7 
140 N=N-1 22 
150 CLOSE : IF N=0 THEN CLOSE : PRINT "FICHIER VIDE..-'"CENE 22 
160 ON ERROR GOTO 250 FD 
170 FOR X=1 TO N 8c 
180 PRINT * -FICHIER “53NF#(X):TAB(36);: CF 
190 OPEN ‘1l":1:NF$(X)+DD$ Bg 
Z00 CLOSE A$="COPY "+NFS(X)+SD$+" TO “+DD$ BC 
2140 CMD ÀA$ : PRINT ”---} MIS À JOUR SUR “:DD# 02 
220 NEXT * 25 
330 PRINT : PRINT “DISGUETTE ":DD$:" MISE À JOUR." 32 
240 ON ERROR GOTO 0 * END 5 
250 CLOSE : IF ERR<>108 AND ERR <>106 THEN ON ERROR COQ @ = 
260 PRINT ” {NON TROUVE SUR “:DD#:")" : RESUME 220 17 
HSE ê ENG DSL 4 DES ÊTES 
-NOM DU FICHIER ZAP 7 zap54/dat 
NUMERO DISQUE SOURCE {40 À 4)7 0 
NUMERO DISQUE DESTINATION (0 À 47 2 
RHOCHIERSSYSÉ ANS =——} MIS 8 JOUR SUR = 
-HÉCHÉERANSYS TESTS [NON TROUVE SUR =25 
FICHIER SUPERZAP/CMD {NON TROUVE SUR :2) 
FICHIER SYS0/SYS ———} MIS 8 JOUR SUR 227 
-FICHIER SYSi4/5YS (NON TROUVE SUR 2:21) 
-FICHIER BASIC/CMD {NON TROUVE SUR 22) 
<FICHIER EDTASM/CMD {NON TROUVE SUR 2:22 
-FICHIER DISASSEM/CMD {NON TROUVE SUR 2:29 
-RICHIERESNS RSS ==} MIS AI CURSRRSS 
—HINCHTERPEYSTFISNS —-—-} MIS &8 JOUR SUR 22 
SRE HHPERPSMNE NE EVE {NON TROUVE SUR 2:27 
=RICHIERES SIT ENS NON TROUVE SUR 22 
=RACHIER+SYS 12/65 {NON TROUVE SUR =27 
RRRCATERNEYS TS AS YS {NON TROUVE SUR 2:20) 
SHICHTERNSYSHASYS ——-} MIS à JOUR SUR22Z 
DISQAUETTE :2 MISE À JOUR. 
Pour ceux qui ont la chance de posséder la version 2 COPY,0,1,,NFMT,CBF,ILF-ZAP54/DAT DE0 
de NEWDOS-80, ce programme est superflu car un nouveau 
paramètre de la commande copié (DFO = Destination pour une disquette mère en O0 et une sms ==: 


File Only) permet justement de copier uniquement les 
programmes figurant à la fois dans le fichier des- 


nation en 1. 


cripteur ET sur la disquette de destination. La comman 


de est la suivante : 
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programme 
Côté 
court 





Eette rubrique contient des programmes écrits en BASIC, mais dont l'originalité est 
que la taille ne dépasse pas TROIS lignes au maximum, chacun d'eux effectuant une 
fonction bien précise. Creusez-vous les méninges et soumettez-nous les vôtres ! 


— TEST MEMOIRE : UNE LIGNE (si ! si !) 


10 GOSUB 10 


Si vous avez le moindre doute sur votre mémoire ou sur l'intégrité de votre système 
(et que vous arriviez à charger le BASIC), essayez cette ligne de programme : elle 
vaut bien des tests mémoire sophistiqués car elle met en oeuvre le système de pile 
de l'interprêteur. Si tout se passe bien, le message "OUT OF MEMORY" doit s'afficher 
au bout de quelques instants, dépendant de la taille mémoire de votre système. Dans 
tout autre cas, il y à effectivement un problème ... Pour continuer toute autre 
opération, faire CLEAR. (Programme communiqué par Jacques Eeses). 


— CONVERSTON HEXADECIMAL --- DECIMAL : 2 LIGNES. 


1000 H$="0123456789ABÇDEF" : D=0 : M=1 : FOR L=1 TO LEN(N$) : FOR I-0 TO 1SASEEr 
MID$(H$,I+1,1)<>MID$(NS$, LEN(N$)-L+1,1) THEN NEXT 
1010 D=D+I*M : M=M*16 : NEXTL : RETURN 


Cette routine de conversion est appelée par GOSUB. En entrée, la variable N$ 
contient la valeur hexadécimale (sans & ou H), en sortie, la variable D contient 
la valeur décimale. La chaîne H$ peut être extérieure à la routine. 

Exemple d'utilisation 


10 INPUT "VALEUR HEXA" ; N$ 


20 GOSUB 1000 
30 PRINT "VALEUR DECIMALE :" ; D 


RE 
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PR -0S.enfants = - - arme. 


Apprenez 
la 
musique 








Vous connaissez certainement les jeux radiophoniques 
consistant à trouver le plus rapidement possible, 
certains morceaux de musique. Nous vous proposons de 
vous entraîner à de tels jeux, en vous amusant... 
tout en utilisant des possibilités supplémentaires 
offertes par votre modèle 1 : il peut, bien sûr, 
jouer des airs connus, mais aussi changer de rythme 
ou même improviser !! 


Il ne faut tout de même pas être trop ambitieux : un 
système muni d'un amplificateur téléphonique ne se 
compare pas au "Philharmonique" de Berlin sous la ba- 
guette de Karajan, ou encore aux synthétiseurs de 
style "Orchestra 80" (voir TRACE n°1) qui offrent 4 
voies simultanées, différents timbres d'instruments 
etes, 


Je n'expliquerai pas comment un sous-programme en 
langage machine permet d'obtenir les notes de plu- 
sieurs gammes : un de mes homonymes l'a déjà expli- 
qué dans les numéros 29 et 30 de l'Ordinateur Indi- 
viduel. Ses idées. sont reprises dans le sous- 
programme musical de ce jeu (lignes 1500 à 1670). 

Les quelques modifications apportées sont nécessitées 
par le stockage d'airs de musique, qu'il faut coder 
de façon simple et peu encombrante en mémoire. 


En bref, le son émis dépend de deux paramètres 


1) sa"durée", notée DU ou V 

2) sa "hauteur" notée HT, qui est passée dans le 
registre HL du microprocesseur, par l'intermédiaire 
de la fonction USR. 


Dans l'article mentionné plus haut, la durée était 
déterminée par sa valeur V selon le codage 


V 0 0,5 1 1 
note quadruple quadruple triple triple 
croche croche croche croche 
pointée pointée 
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Il m'a paru plus simple de coder -la durée d'une note 
sur un entier de O0 à 9, ce qui n'occupera qu'un seul 
octet en mémoire (et non pas 3 pour la valeur PES 
Ainsi, on peut faire varier la durée de la triple 
croche (0) à la blanche pointée (9), ce qui est suffi 
sant pour le jeu proposé qui utilise le codage sui- 
vant 


0 = triple croche 1 = triple croche pointée 
2 = double croche 3 = double croche pointée 
8 = blanche 9 = blanche pointée 


En ce qui concerne la hauteur, l'article de 
l'Ordinateur Individuel utilisait deux paramètres 
NG (numéro de la gamme de 0 à 9) et NT (nombre de 
demi-tons depuis le DO de la gamme considérée, de 
0 à 11). Là aussi, il m'a semblé plus simple de 
n'utiliser qu'un seul paramètre (une lettre) selon 
e code 


canne no nent) san ne 
note “_dordcieres--simdordonre..- si do do 
code Re 1 B E L M N 0 X Y Z 
ASCIT = NÉS GRO T 90 


Apparemment, nous sommes limités à deux gammes, ce 
qui, une fois encore, suffit pour le jeu proposé. 
Comme ce qui importe est le nombre de demi-tons sé- 
parant une note du DO de départ (et que ce nombre 
est le code ASCII de la lettre), on peut continuer 
au-delà du Z (do de la gamme n° 2) par les caractè- 


‘res codés 91 (flèche haute), 92 (flèche basse)... 


Il faudra alors modifier le tableau des hauteurs HT 
dans le sous-programme musical. 


Pour: résumer et illustrer ce pr pos, le début de 
"trois jeunes tambours" est codé : 
Er 
M6 J5 H2 IE 


Le tout sera placé dans une chaîne, ce qui limite la 
durée de l'air à 127 notes (soit 254 caractères). 


Certains airs sont stockés dans le programme, à partir 
de la ligne 11000. Les titres (tableau TS) et les 
codes des airs (tableau A$) sont placés en DATA (s/p 
de lecture des airs : lignes 2000 à 2140). Ce sys- 
tème m'a semblé plus simple, pour les utilisateurs 

de magnétophone, que celui d'un fichier d'airs sur 
cassette, lu par INPUT -1. Une fois le codage d'un 
air assimilé, vous pourrez évidemment personnaliser 

ce jeu en y incluant vos airs favoris. 


Faire jouer un air stocké est très simple : par une 
boucle, on extrait le code de la durée (VAL(MIDS(AS 
( ), ,1))) et le code de la hauteur (ASC(MIDS(AS( ), 

:1))-65. Il suffit d'appeler la durée et la hauteur 
stockées dans deux tableaux par DU (VAL(MIDS(A( )...) 
et HT (ASC(MID#(Aÿ( )...). C'est plus long à écrire 
du'à comprendre... et il vaut mieux consulter les 
lignes 7000 à 7640 ! 
Tel qu'il est rédigé, le jeu se déroule ainsi : 
a) présentation (lignes 1000 &4 1140) avec ses diffé- 
rents niveaux : 

1 = l'ordinateur ne joue que les airs stockés en 

mémoire. 
2 = airs stockés avec quelques improvisations. 


3 ‘ PROGRAMME MUSICAL - 
19 CLEAR 1000:REM7D 

30 GOSUE 1000:REM7C 

&0 GOSUR 1500:REM4D 

70 GOSUR 2O000:REMé7 

80 GOSUE ZSOD:REMSS8 

F0 ON À GOSUR 5000:5100:S200:REM89 
100 GOTO 9500:REM44 


(C) 


TRACE et Cyril 





3 = airs stockés interprétés sur un autre rythme 
avec improvisations. 

b) l'ordinateur lit et interprête les airs qu'il a 
en mémoire sur leur rythme normal (iignes 2000 - 
2140). 
c) introduction du nom des joueurs, 
(lignes 2500 - 2600). 
d) jeu proprement dit (10 airs à deviner) : choix de 
l'air selon le niveau de jeu (lignes 5000 - 5260), 
musique (Lignes 7000, 7640, 9000), 
le réponse (9010), affichage dû score (8000 - 8130). 
et fin de la partie (9500 - 9630). 
Le programme dont la liste suit, fonctionne sur toutes 
configurations, du 16K niveau 2 au 48K disquettes,sans 
nécessiter de modifications ou de spécification d'un 
"memory size" (stockage de la routine dans une chaîne 
de caractères ZZS). 
Plusieurs améliorations sont possibles : 


- autoriser plus de deux joueurs, 

- ajouter un quatrième niveau de jeu : - 
mémoire sont interprétés sur le même rythme, mais sur 
une autre mélodie (peut-on encore parler du "même air! 
? ). J'ai tenté de jouer à ce niveau et j'ai dû aban- 
donner : impossible de trouver quel air est joue ! 
Mais:peut-être avez-vous une oreille plus fine que îa 
mienne ! 

- essayer de deviner les airs en un nombre de 
notes fixé à l'avance, 


du niveau choisi 


- modifier le sous-programme en langage machine 
pour qu'il teste si un joueur a trouvé l'air ( ce‘test 
n'est réalisé en BASIC qu'une fois la note jouée, ce 
qui n'est pas très équitable)... 


Bon amusement ! 


Cyril Grandpierre 


Grandpierre FE 


É 


1000 PRESENTATION DU JEU ’ 15 
1010 CLS:REME87 
1020 PRINTCHR$(23) :PRINT:PRINT:REMCA 
1030 PRINTTAB(S) "JEU MUSICAL":REMF1 
1040 FOR I1=1 TO 2000:NEXT:REMDC 
1050 CLS:REMSE 
1060 PRINT'CE JEU CONSISTE À TROUVER LE PLUS VITE POSSIBLE LE TI 
TRE , 
D'UN AIR MUSICAL INTERPRETE PAR L'ORDINATEUR":REMBS 
1070 PRINT:REMIC 
1080 PRINT"GUAND IL PENSE L'AVOIR TROUVE: 
LE JOUEUR DE GAUCHE APPUIE SUR LA TOUCHE [ 
LE JOUEUR DE DROITE APPUIE 


1090 PRINT:REMO8 

1100 PRINT'SELON LA REPONSE LE 
REPONSE CORRECTE : 
REPONSE FAUSSE : 

1110 PRINT:REMF# 

1120 PRINT°VOUS POUVEZ CHOISIR 
L'FACILE 
2) MOYEN 2AIRS CONNUS OÙ AIRS 
3)DIFFICILEZAIRS IMPROVISES 

F1REMAI 

1130 FOR I=1 TO SOOO:NEXT:REM7F 


JOUEUR 2 
JOUEUR 0 


SUR LA TOUCHE 3: CHR#(94):REMS1 
SCORE SE CALCULE AINSI :. 


ADVERSAIRE O0 
ADVERGSAIRE  1*:REM23 


ENTRE 3 NIVEAUX DE JEU: 
L'ORDINATEUR NE JOUE QUE DES AIRS CONNUS 


IMPROVISES (TITRE:HASARD) 


OÙ AIRS CONNUS AVEC AUTRE RYTHME 
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test de 1' éventuel- 


les airs en 


40 RETURN:REMF& 

1500 ‘IMPLANTATION PROGRAMME MUSICAL ‘ ÀF 

1510 CIM DU#(9) 2HT3(25)2:REM9E 

1520 11$8="PLACE POUR ROUTINE SONORE : AZ=VARPTR(Z2Z#):REMEO 
1530 Z21=PEEK(AZ+1) : Z2=PEEK(AZ+2) : AD=71+256*%22:REMNS3 
1535 IF PEEK(16396)=201 THEN POKE 145262Z71:POKE 16527:22 ELSE DE 
FUSR=AD : CMD°T":RENF7 

1540 FOR I=AD TO AD+23:REMSE 

15250 READ D:POKE I:D:REM77 

1580 HEST I:'REMIZ 

1570 AD=AD+S:IRENMF7 

1580 FOR I1=0 TO 9:REMO9 

1590 QU=INT(2#(1/2+1)+.5):DUE{I)=DU:REMEN 
1609 NEXT:REM33 

10 FOR I=0 TO 25:REMBD 

20 F=133#(2#{1/12)):REMD4 

30 L=INT((1.774E6/F-70)/52+.5)31F L255 THEN L=235:REMC7 
&0 IH=INT(1275/L+.5)2IF IHÿ127 THEN 1H=127:REM5Sé 
30 





HT&CI)=256+xIH+L:REM4T 
BD NEXT:REMF7 
1470 RETURN:REMEZ 
2000 ‘LECTURE DES AIRS ‘ 29 
2010 DIM A$(20):T$(20):REMZ6 
2020 CLS:REMO1 
2030 PRINT:PRINT:PRINT"JE PEUX VOUS INTERPRETER :”:REM91 
2040 READ T$:REMFE 
2050 IF T$="FIN" THEN RETURN:REMOD 
2060 At=A1+1:THCAL)=THIREM73 
2070 PRINT:PRINT:PRINTT&:REMED 
2080 READ A$(A1):REM2S 
2090 FOR I=1 TO LEN(A#(A1)) STEP 2:REMD7 
2100 V=DUE(VALIMIDS (AS (A1) 2 1+1r1)))2C=HTSCASC(MIDS(AS(AL)>1r1))- 
85) :REMDE 
2110 GOSUB 9000:REM60 


2120 NEXT:REMZ9 rs 

2130 FOR I=1 TO SOD:NEXT:REMCS OY RE 

2140 GOTO 2020:REM4B e a? 
3 « \R 


Hu ju He folb Hell jalté 





2500 ‘DEBUT DU JEU 33 
2510 CLS:REMAS 
2520 PRINT:PRINT:PRINT:REM9S 
2530 INPUT'NOM DU JOUEUR DE GAUCHE ":N$(O):REMS7 
2540 PRINT:REMS9 


2350 INPUTNOM DU JOUEUR DE DROITE “5N$(41):REMSS 
2560 PRINT:PRINT:REMSS 

2570 INPUT'NIVEAU DE JEU (1 À 3) "5A4:REM78 

2580 IF ÀA£F1 AND A€FZ AND 4€33 THEN CLS:GOTO 2540:REM76 
2390 CLS:REMS54 

2800 RETURN:REM3C 

3000 ‘JEU NIVEAU 1 ‘ 85 

5010 FOR I=i TO 10:REM6D 

3020 B=RND(A)2:TS=TSCR):REMO7 

5030 GOSUB 7O00:REMEF 

3040 GOSUB 8O00:REME4 

5050 NEXT I:REMéZ < 

3060 RETURN:REM97 00 \ 

5100 ‘JEU NIVEAU 3 ‘ 1 





3110 FOR I=1 TO 10:REMO9 
2120 IF RND(3)=1 THEN T$="HASARD':GOSUE 7300:GOT0 S150:REMCO 
53130 B=RND(AI):TS=TH(H):REM9S 

5140 GOSUE 7000:REMSD 
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PS 


3130 SOSUR S8000:REM75 

3160 NEXT I:REMF4 

3170 RETURN:REM28 

3200 ‘JEU NIVEAU 3 ‘ 9C 

5210 FOR I1=1 TO 10:REMA#4 

3220 IF RND(3)=1 THEN T$="HASARD":GOSUB 7300:GO0T0 5250:REMSE 
23230 B=RND(A1):TS=T$S(E):REM34 

5240 GOSUB 7600:REM16 
5250 GOSUR SO0D:REM11 
5260 NEXT I:REM90 
5270 RETURN:IREMC4 
7000 FOR J=1 TO LEN(A 
7010 V=DU£(VAL(MID#(A 
}:REMFS 

7020 GOSUB 9O00:REMIF 
7030 IF F=0 THEN NEXT:REM44 

7040 RETURN:REMD3 

7300 FOR J=1 TO 20+2*RND(10) STEP 2:REM14 

7310 C=RND(24) :V=DU% (RND(8)-1) :REMCF 

7320 GOSUB 9O00:REMF2 

7330 IF F=0 THEN NEXT:REM17 

7340 RETURN'REMA& 

7600 FOR J=1 TO LEN(A$(B)) STEP Z:REM4E 

7610 C=HT£(ASC(MIDS(AS(B) 2 J31))-865) :V=DUR(RND(S)-1) :REMSF 

7620 GOSUR SOUD:REMCS 

7830 IF F=0 THEN NEXT:REMEA 

7640 RETURN:REM79 

8000 “SCORE ET AFFICHAGE ‘ Ai 

8010 CLS:REM13 

8020 1F P=0 THEN PRINT:PRINT:PRINT"'PERSONNE N’A REPONDU":PRINT:P 
RINT:PRINT'LE REPONSE EST :"3T#:GOT0 8080 ELSE IF P=7% THEN PRIN 
TiPRINT:PRINT'"VOUS AVEZ REPONDU EN MEME TEMPS":GOTO 8080:REME4 
8030 IF P=8 THEN G=0 ELSE G=1:REM6S 

8040 PRINT:PRINT:REMDE 


} STEP -2:REMCS 


{B) 
{B)3J+171))):C=HTXCASC(MIDS(AS(B) 23) 31))-65 


+ 4 


8050 PRINTN$#(G)3" A QUEL TITRE PENSEZ- VOUS "::REMAA 
8060 INPUT R$:REM66 
8070 IF RS=T$S THEN PRINT:PRINT'BRAVO 111":GC(G)=SC(G)+2 ELSE PRI 


NT:PRINT'NON:LA REPONSE EST 25 T$:SC(1-G)=SC(1-G)+1:REM4S 

8080 FOR K=1 TO 100:NEXT K:REM?5 

8090 PRINT:PRINT:PRINTTAB(10) "SCORE DE"; TAB(40) "SCORE DE":REM@l 
8100 PRINTTAB(1O)NS(0) : TAB (40) N$(1) :REMDA 

8110 PRINT:PRINTTAB(13)SC(0): TAB(43)SC(1):REM96 
8120 FOR K=1 TO 100+RND(SOD):NEXT K:REM68 

8130 RETURN:REMS8D 

2000 POKE AD:V:X=USR(C):REM4I 

2010 P=PEEK(14400)2IF P<>8 AND P<>é64 AND P£>72 THEN F=0 ELS F=i 
:REMC1 , 

2020 RETURN:REMOF 

2500 ‘FIN DE LA PARTIE ‘ BF 

2510 CLS:REMA1 

2520 PRINT:PRINT:REMOD 

2330 FRINT'LA PARTIE EST FINIE":REMOZ 
2320 PRINT:PRINT:REMFS 

2330 1F SC(D)=5C(1) THEN PRINT N$(0) “ ET " N$(1) ”;:VOUS AVEZ Fa 
11 MAICH NUL”":GOTO 9S80:REMAA 

2220 1F SC(O0)>SC(1) THEN PRINTN#(O): ELSE PRININ#(1)::REM97 

2228 PRINT" VOUS AVEZ GAGNE .... BRAVO":REM6&C 

22380 PRINT:PRINT:REMDI 

220 PRINT'VOULEZ-VOUS FAIRE UNE AUTRE PARTIE { Q OU N )"3:REMAE 


208 INPUT R$:REMSC 
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7610 IF RS="N" THEN PRINT"AU REVOIR":END:REMFE 

2620 IF R$="0" THEN SC(0)=0:5C(1)=0:GOTO 80:REMGE 

7630 PRINT'REPONDEZ PAR O0 OÙ N S'IL VOUS PLAIT":COTO F590:REM48 
10000 DATA 203:127;:10:175:22:1:76:69716:254 6916254298 d214; 
233:13:32;243;:21:32;:239;?01:REME 

11000 DATA"HYMNE À LA JOIE":REM9C 

119010 DATA"LELEMÉéCéO6MéLEJ SHEHGJ EL EL 7 J4J6LELEMÉO6O8MEL 6) GHEH6J EL 
BJ 7H4H6":REMEZ 

11020 DÂTA"LE BOLERO'":REMA9 

11030 DATA" M6M4L4M4O4M4L4 IE MEM4J4MOMA4L4M4JéH4E4F4H8H4F4E4C4E4F4H 
&J#H&H4:REMSD 

11040 DATA"JESUS QUE MA JOIE DEMEURE":REMBS 

11050. DATAHEJ4L4D4M4MAR4O4OÉT4SATAO4L4H4J4L4M404Q4D4MAL4J4L4H4C 
&H4JéC4E4J4MéLéJéL4&":REMDE 

11060 DATÉ"LE TRUITE":REMGR 

11070 DATA J4G4D4S4S404J5J2J60404N4L4)6J40404845406J404N4L2N7041 
&Jé":RENSS 

11080 DATA"LETTRE & ELISE":REM3E 

11090 DATA" G4P4G4P4QéL 404M4J6A4F4JA4LEF 41 4L4M6F 40 4P4G4P4Q4L 404 M4 
BA&F4J4LEF4Mél 48 "1REMI4 

11100 DATÉ"JEUX INTERDITS":REMBE 

11110 DATA GÉREREGECOMEMELÉJ6J MERE VO VE VE VET ER ER ÉGEOÉOGALREQER EG 


BUGRÉGÉRSOEMEMELEJALSLELÉLEMEL OI 6) 6J6J8":1REMES 
11120 DATA'"MENUET'":REMCE LT 


11130 DATA"HEMELEMSOGHEJ£FSEGF 6CSERAGHEMEL 8M6O8H J6F8E8FéCSFAa"iR 
EM22 

11140 DATA"TROMPETTES L'AIDA":REMF4 

LEFSO DATA" DEIEK4DÉK 4M6MEMEMANST4M7K4TEK4MAMSK? I 4KSM2MOKSM2MGI SK 
2KHB8°:REMEI 

11160 DATA"FRENCH CANCAN":REMA7 

144575 DATATAAHÉAHEJ4HAF4F 4 J4K4OGR4O4O4M4MSO4E4E404M4F4F4J4J4H4JéH 
#JéH4JéHéJ Hé JéH4&H4F4F4"2REMCS 

11180 DATA"SE CANTO":REMSO 

TRE DATA HENÉMER 404 MEMEMAO4QERÉOBO4RARERÉALQÉDEMAOBOEME" 1REM69 





12000 DATA"AU CLAIR DE LA LÜNE":REMDE 
12910 DATA "HÉHEHEJELSJ8HELEJ6J SHFHBH6HEJ 8L8J8H6LÉJ 6 6HPJ6J6J6J6E 
SES JOHÉGÉESCEHÉHÉHÉ I ÉLBJ8HAL6J6M6H9 " :REM?D 

12020 DATA"J'AI DU BON TABAC":REM44 

12030 DATA" CAE4G4C4EGE4G4H6H6GéGéC4E4G4C4EBE4G4H6J OC 040 4S404060 
#S4TÉTÉSÉSÉ040 454040860454 TY8OG"IREMEE 

12040 DÂATA"SUR LE PONT D'AVIGNON":REMB4 

12050 DATA®FEF4FSH4HEHGJ4KAMSF 4E4F4H4AGF4F4F6H4H4HOJ4K4M4F4H4ESF 
GF2F2F2F2H6F6F2F2F2F2H6F 6" :REM2E 

12060 DATA"GENTIL COQUELICOT":REM?E 

12070 DATA" JI4J4HEF 6J6M4M4H7J4J4H4F 6 6M4M4HGH4J 4K4M6MGK 4J 4H9HSF 2H 
#J4FéFéFéF4HSFZH4JE4FàF4F4":REMCA 

12080 DATA"TROIS JEUNES TAMBOURS":REMOD 

12090 DATA"MBJSH2F 7AZFSH2JSK2J6H4H6HSJ2H7H2JSK2MSOZMSK2JSH2F6F4F 
#F&ATAZFSHIIEKZJÉHEFO "REMY 

12100 DATA"IL PLEUT BERGERE”:REMA4 
12110 DATA"L4GEL406L4H7C6HSG2H4JéJ4LOLSJ2L4M6M607L705020404M4L É: 


FJ4":REMAZ 







12120 DATA" MALEBROUCH":REMOC 

12130 DATA"B4LSL4L6J4M7L4M4L4J4J4J4J £H4J4L7HéB4LOL4L8J4M7LéO4L GH 
4JECÉHST:REMES 

15000 DATA °FIN:REMSS 
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utilitaire 


Des ouli s pour 
votre programmation (II 





Nous avons vu dans le précédent numéro, comment 
faire "avancer" la zone BASIC pour laisser une place 
susceptible de recevoir une routine en langage ma- 
chine, par exemple. Cette zone privilégiée, présente 
l'avantage d'être auto-protégée tout en s'adaptant 
aux différentes configurations mémoire du TRS. 
Aujourd'hui, nous allons jeter un coup d'oeil sur 
une autre technique peu orthodoxe (qui fera surement 
bondir les programmeurs respectueux des traditions !) 
mais qui peut parfois être de quelque utilité 
comment écrire des programmes BASIC en assembleur .. 


L'exemple de programme dont la liste suit, a été 
réalisée avec l'éditeur/assembleur EDTASM. Il 
contient les lignes BASIC suivantes : 


10 FOR N=1 TO 10 
20 PRINT N : 
30 NEXT 


Le début de la zone BASIC a été choisi pour s'adap- 
ter aux diverses configurations matérielles (7000H) 
et réalise ainsi, par la même occasion, un forçage 

de cette zone à une valeur différente de la valeur 

standard. 


Nous avons vu précédemment (TRACE n° 2), que l'adres- 
se du début de la zone BASIC était conservée dans le 
pointeur HOAUH/HOASH, alors que la fin était conte- 
nue en AOF9H/HOFAH. Ces pointeurs seront chargés à 
l'initialisation du programme (lignes 420 à 450). 
Nous avons appris également, que la zone BASIC 
devait toujours être précédée d'un octet nul (ligne 
60). Il suffit maintenant d'écrire le "corps" du 
programme BASIC sous forme de données (DEFB, DEFW 

et DEFM), en utilisant la représentation dite 
"compactée", telle qu'elle figure en mémoire. Dans 
celle-ci, chaque mot-clé du BASIC est représenté 

par une valeur prédéfinie appelée "token". Le mot 
clé PRINT, par exemple, est représenté par la valeur 
décimale 178. De cette technique, il découle un 

gain de place appréciable (un octet par mot-clé) et 
une rapidité dans l'exécution. C'est l'interprêteur 
BASIC qui, à la lecture des mots-clés (clavier, 
cassette ou disquette), effectue cette conversion. 


Mais pour aller plus loin, il nous faut connaître 
la structure d'une ligne de programme en BASIC. La 
voici 


HUE suite des mots-clés et des textes 
formant la ligne de programme 
(longueur variable) 


octet nul signalant la fin de la ligne 


- Le lien de chaîne contient l'adresse mémoire 
(poids faibles en tête) du début de la ligne 
suivante. 

- Le numéro de la ligne BASIC, est codé en binaire 
(iongueur fixe) sur deux octets (poids faibles 
en tête). 


- Nous trouvons ensuite la ligne de programme 
proprement dite, dont la longueur dépend du texté 
et des mots-clés utilisés. Cette longueur est (en 
principe) limitée. 

— La ligne se termine ensuite par un octet nul 
(valeur 0 en binaire). 


La prochaine ligne, se trouvant immédiatement à la 
suite, aura une structure identique, et la fin phy- 
sique du programme (ensemble de lignes) sera annon- 
cée par un lien de chaîne nul (2 octets à zéro). 


Cette fois-ci, nous en savons suffisamment pour 
écrire nos lignes BASIC en assembleur. Examinons par 
exemple, la ligne BASIC numéro 10 (lignes 100 à 180 
du programme assembleur) et comparons sa structure 
avec celle du tableau ci-dessus. 

Notez que le signe ‘=' possède aussi un "token", Il 
en est de même pour les signes '?' et ! ('. Par 
contre, les noms de variables et les valeurs numé- 
riques sont codés en ASCII. 


La fin du programme BASIC est codée sous la forme 
d'une valeur nulle de 16 bits (label FIN). L'adresse 
suivante (label LIBRE) signale le prochain emplace- 
ment libre de la mémoire, après la zone BASIC. 


NOTA : Ce programme devrait tourner sur modèle 3, en 
prenant soin de remplacer l'instruction ' JP 6CCH' 
(ligne 460) par ‘ JP 1A19H'. 


Consignes pratiques d'utilisation 


Le programme étant assemblé et sauvé, deux cas se 
présentent : version cassette ou minidisquette. 


1 - Version cassette : 


. Charger le programme sous BASIC, par 
SYSTEM 
Æ?VTNTT 
(lecture de la bande) 
et l'exécuter par 
PA 


Il suffit alors de frapper LIST pour retrouver le 
programme BASIC (et l'exécuter éventuellement). 


2 - Version disquette : 


. Charger le programme sous DOS par 
LOAD INIT/CMD 
puis appeler BASIC et faire : 
SYSTEM 
*? / 28701 


Cette dernière commande exécute un branchement au 
label INIT (adresse hexa 701DH) qui effectue la mise 
à jour des pointeurs de la zone BASIC. Dès cet 
instant, il suffit de faire LIST pour retrouver le 
programme sous une forme plus familière. 


Alain Pinaud 
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EEE APE NE 


7D1D 
7030 
FE 
7026 
7029 
7010 


00 


0270 
DAGD 


0000 


210170 
228440 
211270 
22F940 
C3CCOë 


09000 TOTAL 


33/26 


FIN 
IHIT 
LIBRE 
LIGNi 
LIGN2 
LIGN3 


TEXT 


701E 
701D 
MALE 
0 7001 
0 700D 
H7DES 


00010 
00620 
00030 
00040 
00030 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00130 
00160 
00170 
00180 
GUL108 
D020û 
O0210 
00220 
00230 
00740 
00250 
00260 
00270 
00280 
00220 
00300 
00310 
00320 
00330 
00340 
00350 
00380 
00370 
00380 
09390 
00400 
00410 
00420 
00430 
00&40 
00450 
00460 
00470 
ERRORS 


: PRINCIPE D'ECPBITUPRE D'UN PROGRAMME 


; BASIC. 


UFR 


LIGN10 


: 20 PRI 


LIGNZ0 


30 NEX 


LIGN30 


0 
7 


ORG 
DEFE 


N=1 


DEFW 
DEFW 
DEF 
PEFM 
DEFE 
CEFM 
DEFE 
DEFH 
PEFH 


NT N 


DEF 
PEFH 
DEFH 
DEF 
PEFE 


T 


DEFW 
PEFW 
DEFB 
DEFE 


76000H 
G 


T0 10 


LIGN20 
10 
129 


213 
î 


4 
189 
ou 


CG 


LIGN30 
20 

178 
st 

0 


3 FIN DU PROGRAMME BASIC 


FIN 
LIBRE 


3 


PEFW 
EQU 


O 
$ 


FT 


EN ASSEMBLEUR 


1 


= 
3 


= 
] 


dt 8 DU Mu 0 


L 


ORIGINE MEMOIRE 
OCTET-1 ZONE BASIC 


LIEN DE CHAINE 
NUMERO DE LIGNE 
CODE DU ‘FOR' 

N 


Î 

TO 

10 

FIN LIGNE 10 


LIEN DE CHAINE 
NUMERO DE LIGNE 
PRINT 
N : 
FIN LIGNE %0 


LIEN DE CHAINE 
NUMERO DE LIGNE 
NEXT 

FIN LIGNE 30 


DOUBLE ZERO 
LA ZONE LIBRE... 


3 INITIALISATION DES POINTEURS BASIC 


INIT 


AREA BYTES LEFT 


00370 
00420 
00380 
00100 
00220 
00300 


00300 
00470 
00440 
00420 
00100 
00220 


HL:LIGN10 
(40A4H) 2 HL 
HL:LIBRE 
({40F9H)7HL 
&CCH 

INIT 


ADRESSE LIGNE 10 
--}> POINTEUR DEBUT 
ADRESSE LIBRE 

==? POINTEUR FIN 
RETOUR AU BASIC 
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enseignement 





L'ordinateur 
à la maternelle 





L'ordinateur est un peu 1a “lampe d'Aladin" de notre 
époque : selon notre humeur (mais aussi selon la 
cassette avec laquelle nous le frottons !), il sau- 
ra se transformer en comptable, en comparaison de 
jeu ou en patient pédagogue. 

Ce modèle 1, par exemple, équipé d'une carte 
80-GRAFIX (générateur de caractères programmable), 
s'est discrètement introduit dans une école mater- 
nelle. Mais voici l'institutrice, profitons-en pour 
lui poser quelques questions ... 


- Quelles raisons vous ont emené à utiliser un ordi- 
nateur dans une classe d'école maternelle ? 


- Mon mari (qui est professeur de mathématiques, 
cela à son importance) ayant acheté un TRS-80, 

a commencé par écrire des programmes mathématiques, 
puis quelques jeux pour enfants : il s'agissait de 
trouver le nombre d'animaux apparaissant sur l'écran 
ou le nombre de trous fait par une chenille dans une 
feuille ... L'enthousiasme de nos enfants, grimpés 
sur le bureau pour compter les animaux ou embrasser 
la chenille, m'a conduit à penser qu'il serait 
dommage de se priver, en classe, d'un outil aussi 
stimulant. Je dois ajouter que cela a aussi été, 
pour moi, un moyen d'apprivoiser "Thérèse", devenue 
ma plus grande rivale aux yeux de mon mari ! 


- Hum ... Trace se préoccupera plus tard de ces 
questions ... Mais auparavant, pouvez-vous nous dire 
quels genres de programmes vous utilisez en classe ? 


- Jusqu'à présent, nous en avons utilisé quatre, 
intitulés : "Labyrinthe", "Autant", "Plus" et 
"Construction". 

Comme son nom l'indique, le premier programme créé 
des labyrinthes. Ils sont de dimensions variables, 
mais n'ont qu'une seule issue. L'enfant s'y déplace 
grâce aux touches fléchées, et le chemin qu'il 
parcourt est visualisé ou effacé s'il revient sur 
ses pas. Il est impossible de traverser les murs du 
labyrinthe. Une fois la sortie atteinte, une petite 
musique récompense le succès puis le labyrinthe et 
le chemin parcouru sont dessinés sur imprimante. 
Dans le programme "Autant", deux collections d'ob- 
jets sont dessinées, l'une à droite et l'autre à 
gauche de l'écran. L'enfant fait apparaître un lien 
entre objets de droite et objets de gauche, pour 
mettre en évidence la relation entre les deux collec- 
tions. Puis il répond (par oui ou par non) à la 
question lui demandant s'il y a autant d'objets à 
droite qu'à gauche. 


Le programme "Plus" reprend le même principe, mais 
plusieurs questions sont posées : combien y a t-il 
d'objets à droite, à gauche, de quel côté y en a 
t-il le plus, combièn y en a t-il en plus ... 
Enfin, dans le programme "Construction", hui pièces 
de formes différentes sont à la disposition des 
enfants (un disque, deux rectangles, un carré, qua- 
tre triangles d'orientations différentes). Chaque 
pièce a un numéro grâce auquel l'enfant l'appelle. 
Il peut alors déplacer la pièce choisie grâce aux 
touches fléchées, et construire ce qu'il veut (dans 
la pratique, il y a beaucoup de bonshommes et de 


maisons). Lorsqu'il est terminé, le dessin réalisé 
à l'écran est tracé sur imprimante. Bien entendu, 
l'enfant dispose de possibilités d'effacement et 
peut appeler üne piéce autant de fois qu'il le 


_désire. 





- Comment fonctionnez-vous : individuellement ou en 


groupe ? L'ordinateur est-il en permanence dans votre 
classe ? 


- Au départ, je n'ai disposé de l'ordinateur qu'une 
demi-journée par semaine. Mon mari a pris des grou- 
pes de deux à cing enfants pour les initier au manie- 
ment de l'appareil (touche blanche indispensable 
pour la réponse, touche flèche à gauche pour effa- 
cer ...) et leur expliquer comment utiliser un pro- 
gramme (tout utilisateur introduit d'abord son 

nom =) 

Maintenant, le maniement de l'outil étant assimilé, 
l'ordinateur est utilisé une journée par semaine, 
soit par groupe de trois (pour "Plus" et "Autant'"), 
soit individuellement ('"Labyrinthe", "Construction!"). 
Parfois, les enfants décident eux-mêmes du mode 
d'utilisation. Ainsi un jour, deux enfants se sont 
répartis les touches fléchées pour faire ensemble 

le labyrinthe ... Puis le jeu s'est fait à quatre, 
chacun sa touche : bon travail d'équipe spontané ... 
jusqu'au moment où la règle a été transformée en 
"tout faire pour bloquer les autres" ... ! 


- Pouvez-vous dresser un bilan provisoire de votre 
expérience ? 


- J'ai utilisé l'ordinateur dans deux domaines assez 
différents. Le premier domaine, c'est celui du con- 
trôle de l'acquisition des connaissances (programmes 
"Plus" et "Autant"). Là, les notions mises en jeu 
(autant, nombre ...) ont déjà fait l'objet de nom- 
breuses activités en classe, et l'ordinateur ne peut 
pas remplacer ces activités indispensables. Par 
contre, au niveau pédagogique, l'évaluation immédia- 
te de la réponse et le correction éventuelle sont 
d'un grand intérêt. De plus, ce type de travail 
favorise l'autonomie de l'enfant par rapport à 
l'adulte. Dans la mesure du possible, questions et 
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réponses sortent sur imprimante : cela me permet de 
contrôler le niveau d'acquisition. 

Second domaine d'utilisation,: il ne s'agit plus de 
contrôle des connaissances, mais plutôt d'un jeu où 
l'enfant doit avoir un rôle particulièrement actif 
(“Labyrinthe", "Construction"). Ces programmes 
concernent les notions d'orientation dans l'espace 
(droite - gauche, haut - bas, orientation des trian- 
gles dans le jeu de construction). Ces notions font 
aussi l'objet d'activités en classe, mais là, l'or- 
dinateur apporte une autre présentation, ce qui peut 
permettre une approche différente. 

A l'usage, les programmes ont un intérêt que je 
n'imaginais pas au départ. Ainsi, dans les labyrin- 
thes, comme il n'y a qu'une seule issue possible, un 
enfant ne peut que réussir. Et toute expérience posi- 
tive est réinvestie par l'enfant dans un autre 
domaine. 

Autre intérêt non prévu au départ. L'ordinateur est 
un intermédiaire entre la manipulation et la repré- 
sentation. Ce n'est peut-être pas clair : je précise. 
Le programme "Construction", ressemble à un puzzle. 
Dans un puzzle, l'enfant manipule des pièces pour 
représneter quelque chose. Avec le programme, l'en- 
fant manipule les pièces de façon particulière 
(droite, gauche, haut, bas) et détermine iui-même ce 
qu'il veut représenter ... mais ce n'est pas non 
plus un dessin. C'est un intermédiaire qui favorise 
l'anticipation : il faut d'abord se représenter ce 
qu'on veut construire pour ensuite appeler les piè- 
ces utiles. 

Encore quelques remarques au niveau pédagogique. 
Tout d'abord, l'ordinateur autorise le droit à 
l'erreur. Dans la plupart des exercices faits en 
classe, l'erreur commise subsiste sur le cahier, sur 
la feuille polycopiée ... Avec l'ordinateur, l'erreur 
commise laisse beaucoup moins de trace. 

Dernière remarque : l'ordinateur est un outil très 
motivant (et pas seulement parce que Sandrine en a 
commandé un au Père Noël !). Des enfants particu- 


bricolage 








lièrement instables se sont révélés capables d'une 
attention soutenue et assez longue pour sortir d'un 
labyrinthe. Autre aspect motivant et important pour 
une section de grands : l'ordinateur motive l'inté- 
rêt de l'enfant pour l'expression écrite. Avant tou- 
te utilisation, il faut taper son nom, décoder la 
question posée ... 


- Est-ce à dire que l'ordinateur est un outil 
indispensable ? 

_ À l'heure actuelle, sûrement pas ! Il ne peut pas 
fournir certaines expériences et certaines manipula- 
tions indispensables aux enfants. Toutefois, son 
aspect motivant et l'originalité des services qu'il 
peut rendre (contrôle, droit à l'erreur, développe- 
ment de la créativité, possibilités illimitées ...) 
en font un allié très positif de l'institutrice. 


Propos recueillis par Cyril Grandpierre.… 








: Minidisquettes 


double faces 
sur Modèle 1 





On trouve actuellement dans le commerce, des unités 

de minidisquettes à double-face, c'est-à-dire munies 
de deux têtes de lecture/écriture, permettant d'ex- 

ploiter simultanément les deux faces des disquettes 

13 centimètres sans retournement de la pochette. 


Physiquement, ces unités occupent l'emplacement d'une 
unité simple-face, tout en ayant une capacité double. 
En utilisant un dispositif doubleur de densité, on 
atteint 360 K octets par unité, soit l'équivalent de 
quatre unités simple-face. Il est bon d'y réfléchir ! 
Quant à leur prix, il est de loin inférieur à deux 
unités (moins de 3000 francs sans carrosserie et 

sans alimentation). Néanmoins, il faut savoir qu'une 
unité double-face n'est pas toujours égale à deux 
unités simple-face, il suffit de faire un "backup" 
(recopie de sauvegarde) pour s'en rendre compte ! 


11 y a deux manières d'exploiter les unités double- 
face 
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a) Le circuit intégré qui contrôle les disquettes 
(FDC) possède un signal permettant de distinguer 
l'une des deux faces (SIDE SELECT) et il est donc 
possible au logiciel qui pilote ce circuit 
(driver ou "programme pilote") de sélectionner la 
face choisie. 


b) Le FDC et le pilote ne sont pas prévus pour gérer 
les unités double-face. Celles-ci sont donc consi- 
dérées par le logiciel comme étant chacune deux 
unités simple face. 


Ce dernier cas est celui du modèle 1. 

En version standard, celui-ci peut piloter quatre 
unités simple-face. Avec la petite modification 
exposée ci-dessous, il lui sera possible de contrô- 
ler deux unités double-face : la première unité 
correspondant aux adresses :0 (face A) et :1 (face 
B), la seconde aux adresses :2 (face A) et :3 (face 
B). 


I 


Schéma de principe en standard (4 unités simple-face) 


: Avec la modification que nous vous proposons, les 

jsignaux DS1 et DS2 doivent sélectionner l'unité 0 

| (head load), DS2 jouant le rôle "SIDE SELECT" ; DS3 
: ( ‘et DS doivent sélectionner l'unité 1-(head load), 

DS4 jouant le rôle "SIDE SELECT". Les combinaisons 

logiques sont donc les suivantes : 





Chassis 
d'interface 


Sélection Adresse Unité double-face 


10 


12 


14 


32 


10 


12 


14 


32 













DS1 :0 Unité O face A 
DS2 = Unité 0 face B (unité 1 en 
standard) 
DS3 :2 Unité 1 face A (unité 2 en 
standard) 
l g LS 
connecteur DS 3 Unité 1 face B (unité 3 en 


standard) 


Schéma de principe après modification 
ET 


Chassis 
d'interface 


circuit 
ajouté 


connecteur 


DISQUETTE O/1 


selection 
adresse 


selection 
face 


selection 
adresse 


S diodes 
selection 
face 






DISQUETTE 2/3 


DISQUETTE O/1 


election 
adresse 


sel face 


election 
adresse 


sel face 


DISQUETTE 2/3 


Remarquez la coupure de piste à effectuer sur la pre- 
mière unité (SIDE SELECT). Si vous préférez ne pas 
"charcuter" le circuit imprimé, vous pouvez toujours 
déposer du vernis ou coller un petit morceau de ruban 
adhésif sur le contact numéro 32 du connecteur. 

Le circuit intégré utilisé est du type 7438 ou 7416. 
Dans notre ancien. modèle d'interface d'extension, il 
était possible d'employer le circuit libre Z39 (en- 
trées 4, 5, sortie 6 et entrées 12, 13, sortie 11). 
Qu'en est-il sur les nouveaux modèles ? Aussi nous 
vous conseillons d'utiliser un circuit extérieur. 
Pour ceux qui ne désirent pas modifier leur chassis 
d'extension, il existe une autre solution qui consis- 
te à utiliser des diodes au germanium (0A 85 par 
exemple), à la place des straps de sélection d'adres- 
ses des disquettes (voir figure ci-dessous). Dans ce 
cas, les modifications précédentes ne doivent pas 
être appliqdtées. Les diodes seront soudées sur des 
petits contacts venant s'enficher à la place des 
straps de sélection d'adresse. 

Dernier détail : le câble de liaison interface/dis- 
quettes livré par Tandy ne peut pas être utilisé tel 
quel, certains signaux de sélection étant absents 
(contacts retirés dans les connecteurs). 





Jean-Pierre du Tillet 
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graphiques 


Les graphiques 


sur TRS 


Les graphiques ... Mot magique, argument publicitaire, 
.cette caractéristique technique est souvent mise en 
exergue dans la description d'un OI. Apparemment, 

ceux du vieux TRS-80 modèle 1 sont bien pauvres, face 
à certains nouveaux venus dont les publicités procla- 
ment fièrement : "graphiques couleurs en haute résolu- 
tion" (et en lettres microscopiques : "moniteur cou- 
leur, interface SECAM ou RVB en option"). Et pourtant, 
nous allons voir qu'avec quelques astuces, on parvient 
à obtenir des affichages rapides et spectaculaires... 


Selon notre Bible, le Manuel du BASIC Level II, les 
cinq instructions permettant d'accéder aux graphiques 
sont : SET, RESET, POINT, CHRS et POKE. Passons-les 
en revue. 


SET(X,Y) et RESET(X,Y) permettent respectivement 
d'allumer et d'éteindre un petit rectangle (un point 
graphique élémentaire) dans une "grille" comptant 48 
lignes de 128 points. L'origine est située en haut, à 
gauche de l'écran ; X est l'abscisse du point (n° 

de colonne) et doit être compris entre @ et 47. On 
peut constater que chaque point est deux fois aussi 
haut que large (deux rectangles justaposés forment un 
carré). 


POINT(X,Y) permet de connaître l'état du point de 
coordonnées (X,Y). Un rectangle allumé donne -1, un 
rectangle.éteint donne O, ainsi qu'un point situé 
dans un caractère alphanumérique. 


A noter que les valeurs de X et Y peuvent être non 
entières : seule leur partie entière est prise en 
compte. 


CHR#(X) fournit un caractère dont le code est X. Le 
code peut être emprunté au standard ASCII. Mais ce 
standard et celui employé par le TRS ne cofncident 
que jusqu'à X=127. Au-delà, on tombe dans le domaine 
des caractères graphiques (CG) propres au TRS, qui 
sont des blocs de 6 points élémentaires, disposés en 
2x 3 (fig. 1): 


caractère 
alphanumérique 


espace 


:interligne fig 1 : une lettre et 


un caractère graphique 





Arrivés à ce point, faisons une petite incursion 
dans les circuits de l'interface vidéo du TRS-80. 
Celle-ci ne sait afficher que des caractères, n'ayant 
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pas de circuiterie spécifique à l'affichage de 
points. Cette constatation nous oblige à considérer 
le graphisme du TRS-80 comme un "semi-graphisme". 
Cette appellation dédaigneuse veut simplement dire 
que les points graphiques ne sont pas pris en compte 
séparément, lors de l'affichage d'un dessin, mais 
groupés par 6 (3 en hauteur, 2 en largeur), et que ce 
groupe est considéré par l'interface comme un carac- 
tère : sa forme est reconstituée par une circuiterie 
spéciale (codeur graphique) de l'interface vidéo, 
contrairement aux caractères alphanumériques dont le 
dessin est contenu dans une ROM spéciale dite "gé- 
nérateur de caractères". 

Dans ce cas, peut-on obtenir, toutes les combinaisons 
possibles de points allumés ou éteints ? Mais oui. 
Dénombrons donc ces combinaisons : pour chaque point, 
il y a deux états possibles (allumé ou éteint) ; donc, 
pour six points, il existe 2 puissances 6- 64 combi- 
naisons possibles. Or, Radio Shack, dans son infinie 
clairvoyance, a justement pourvu ledit codeur graphi- 
que de ces 64 combinaisons possibles, dont les codes 
s'étendent de 128 (caractère noir, les 6 points le 
constituant sont éteints) à 191 (caractère blanc, 

les 6 points sont allumés). L'intérêt des CG tient 

au fait que six points à la fois sont allumés ou 
éteints par une seule instruction du type PRINT CHRS 
(X), où X est un code de CG, alors qu'un SET ou un 
RESET n'en traite qu'un seul à la fois. 


Problème : comment, à partir de la forme d'un CG, 
trouver son code afin de pouvoir l'imprimer à l'aide 
d'un tel PRINT ? Première solution : se référer à 
une table, donnant, pour chaque caractère graphique, 
le code correspondant. Cette table peut être obtenue 
à l'aide de la boucle suivante : 

FOR 1=128 TO 191 PRINT I;":"; CHAS(I) ;: NEXT I 
Deuxième solution (qui est peut-être la plus rapide 
avec un peu d'habitude) : on remarque que les codes 
des CG n'ont pas été choisis au petit bonheur, mais 
correspondent à une progression logique. En fait, 
chaque point d'un CG correspond à un bit de l'octet 
qu'il occupe dans la mémoire vidéo. La fig. 2 donne 
cette correspondance (voir encadré sur la mémoire 
vidéo). Lorsqu'un point est allumé, le bit corres- 
pondant vaut 1. Lorsqu'il est éteint, ce bit vaut O. 


b6=Q@ (voir texte sur la mémoire vidéo) 
Ÿ 
CFE 


t 


b7-1 pour un caractère graphique 





fig 2 : correspondance entre les points d'un CG 
et les bits de l'octet qu'il représente 





Calculons par exemple le code du caractère de la 
fig. 1. La position des points allumés nous indique 
que les bits b@, b3 et bl valent 1, tandis que b1, 
b2 et b5 valent @. Quant à b7, il vaut 1 (comme pour 
tous les CG), et b6 vaut @. Le code s'écrit donc 


1991 1991 en binaire, soit 153 dans notre bon vieux 
système décimal. Cela revient finalement à relever 
les valeurs de 1a fig. 3 correspondant aux bits va- 
lant 1 (donc aux points allumés), les additionner, 
et ajouter 128 à cette somme (à cause du bit b7 va- 
lant 1). 


Voyons à présent comment employer les PRINT, avec le 
programme suivant. (faisons un NEW avant de taper cette 
nouvelle version) : 


1@ CLEAR 200 : DEFSTR A-B : DEFINT C-Z : Rem le CLEAR 


(1+8+16)+128=153 


fig 3 





le CG de code 153... .-. et la façon de 


calculer ce code 


POKE A,X permet d'écrire l'octet X à l'adresse A, 
dans la RAM. Et une portion de la RAM qui nous in- 
téresse particulièrement est la mémoire vidéo. En 
écrivant le code d'un caractère dans cette mémoire, 
nous le voyons apparaître sur l'écran. Pour l'effa- 
cer, on le remplace par le caractère espace, de code 
32. Essayons, par exemple, le petit programme suivant: 


19 DEFINT A-Z : Rem travailler sur des entiers accé- 
lère l'exécution du programme 


20 B=191 : E=32 : Rem 191 est le code du CG blanc, 
et 32 est celui de l'espace. 


39 FOR I1=1536@ TO 16383 : Rem I décrit toutes les 
adresses de la mémoire vidéo 


1G POKE I,B : Rem écrit un caractère graphique blanc 


59 FOR J=1 TO 5 : NEXT J : Rem cette boucle de 
temporisation ralentit un peu le programme 


69 NEXT I 


Un P@KE prend en charge six points à la fois. 

Il est jusqu'à deux fois plus rapide qu'un PRINT 
équivalent, car, vu la versatilité de cette dernière 
instruction, son exécution est plus lente. 


Mais la supériorité du PRINT réside dans le:fait 
qu'une de ces instructions peut afficher plusieurs 
caractères à la fois sur l'écran. Supposons par 
exemple vouloir afficher sur la première ligne de 
l'écran les 64 caractères graphiques, de deux maniè- 
res différentes, alternativement : dans l'ordre des 
codes croissants, puis, après temporisation, dans 
l'ordre décroissant (et après temporisation, dans 
l'ordre croissant à nouveau, et ainsi de suite). 

En employant les POKE, cela donne le programme sui- 
vant (faisons tout d'abord un NEW pour effacer le 
précédent) : 


19 DEFINT A-Z : A=15232 : B=15551 


2Q FOR 1=128 TO 191 : POKE A+I,I : NEXT I : Rem 
affichage dans l'ordre croissant 


39 FOR I=1 TO 599 : NEXT I : Rem temporisation 


G FOR 1=191 TO 128 STEP -1 : POKE B-I,I : NEXT I : 
Rem affichage dans l'ordre décroissant 


59 FOR I=1 TO 59 : NEXT I : Rem temporisation 
69 GOTO 29 : Rem etc..., jusqu'à un BREAK 


réserve de la mémoire pour les chaînes A et B 


29 FOR I=128 TO 191 : A=A+CHRS(I) : NEXT I : Rem A 
est la chaîne des codes croissants 


30 FOR I=191 TO 128 STEP -1 : B=B+CHR#(I) : NEXT I : 
Rem B est la chaîne des codes décroissants 


LG PRINT (@ Q,A : : Rem A est affichée 
50 FOR I=1 TO 5@@ : NEXT I : Rem temporisation 
60 PRINT(@ @, B ; : Rem B est affichée 
710 FOR I=1 TO 5@@ : NEXT I : Rem temporisation 


84 GOTO 4@ : Rem etc... 


Cette fois, l'affichage de la ligne de CG est presque 
instantané, et en tous cas trop rapide pour être 
suivi. La modification par rapport à la version précé- 
dente a consisté à créer les deux lignes de CG avant 
de les afficher. Le PRINT se résume alors, pour le 
Basic, à un simple transfert de CG depuis les adres- 
ses où sont stockées A et B jusqu'aux adresses de la 
1e ligne de l'écran, ce qui ne représente que quel- 
ques microsecondes à peine... 


Mais la plupart du temps, les graphiques que nous 
employons s'écartent plutôt de ce style abstrait. 
Considérons un graphique utilisable dans un jeu, 

tel le "bonhomme" de la fig. 4. Notre bonhomme est 
constitué de 6 caractères graphiques, dont les codes 
ont été calculés selon la méthode de la fig. 3. Qui 
dit jeu, dit animation graphique, aussi rapide que 
possible. Notre but va être d'afficher ce bonhomme à 
un emplacement quelconque de l'écran, aussi rapide- 
ment et facilement que possible. 
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fig 4 : un "bonhomme en six caractères 
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Une méthode simple consiste à créer deux chaînes de 
CG, les moitiés hautes et basses du bonhomme (faisons 
un NEW avant de taper cette nouvelle version) : 


10 DEFSTR A : Rem pour plus de commodité, mieux vaut 
définir A comme une chaîne , : 


20 A1=CHRS(178)+CHRS(183)+CHRS( 144) : Rem moitié 
haute 


39 A2=CHRS(152)+CHR$(137)+CHRS(144) : Rem moitié basse 


Puis, afin de déplacer notre bonhomme sur l'écran, 
écrivons deux sous-programmes, l'un qui affichera le 
bonhomme, l'autre qui l'effacera (car lorsqu'il aura 
été affiché à une nouvelle position, il faudra l'ef- 
facer de la précédente). Il faut donc d'abord créer 
une chaîne d'effacement : 


19 A3-CHR$(195) : Rem ce caractère est affiché comme 
trois espaces (code de compression), mais n'occupe 
qu'un seul octet 


Les deux sous-programmes seront : 


999 END : Rem il faut isoler les routines du corps 
1900 PRINT/@ X,A1 ;: PRINT @ X+64,A2 : Rem A2 est 
affichée à 64 positions de A1, donc juste au-dessous 


1919 RETURN 


2009 PRINT(@ X, A3 ; : PRINT X+64, A3 : Rem : on 
efface ainsi les moitiés hautes et basses 


2919 RETURN 


Utilisons maintenant ces sous-programmes, en baladant 
notre bonhomme sur l'écran : 


196 FOR X=9 TO 8gÿ 

110 GOSUB 1000 : Rem affichage du bonhomme 
120 FOR I=1 TO 19 : NEXT I : Rem temporisation 
130 GOSUB 2009 : Rem effacement du bonhomme 


149 NEXT X 


Le défaut de cette méthode est de devoir manipuler 
autant de chaînes distinctes que le dessin compte de 
lignes. Un sous-programme réduit cette difficulté, 
nous l'avons vu, mais l'idéal serait de faire tenir 
notre dessin dans une seule chaîne. Ouvrons donc le 
Manuel du Level II à la page C1 : on y lit que le 
caractère de contrôle: de code 24 fait reculer le 
curseur d'une position, tandis que celui de code 26 
le fait descendre d'une position. Le curseur n'ef- 
face pas, dans ce cas, les caractères sur lequel il 
passe. 


Reprenons donc nos chaînes 41 et A2 précédentes. 
Nous aurons atteint notre but si, ayant affiché A1,. 
nous faisons descendre le curseur d'une position et 
reculer de trois, avant d'afficher A2. Le tout peut 
s'écrire en une seule chaîne, ainsi que la chaîne 
d'effacement (faisons NEW) 


1 DEFSTR A 


20 A=CHR#(178)+CHR8(183)+CHRS(144)+CHRS(26)+STRINGS 
(3,24)+CHR$(152)+CHR$(137)+CHRS(144) : Rem chaîne du 
bonhomme. Les caractères de contrôle de codes 24 et 
26 ont pour effet de superposer exactement les deux 
lignes du dessin. 


3@ AE=CHRS(195)+CHRS(26)+STRINGS(3,24)+CHRS(195) : 
Rem chaîne d'effacement 


Affichons les chaînes : 
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199 FOR X=1 TO 899 
116 PRINT 4 X,A; : Rem affichage du bonhomme 
129 FOR I=1 to 19 : NEXT I ::Rem temporisation 


139 PRINT X,AE; : Rem effacement 


14@ NEXT X 


Le dessin est déjà nettement. plus simple à manipuler: 
un seul PRINT suffit. L'inconvénient majeur de cette 
méthode est que les codes graphiques et de contrôles 
s'introduisent au moyen d'instructions CHERS, 

ce qui alourdit le programme. Notre dessin ne compte 
que dix caractères (6 graphiques, 4 de contrôle), et 
la chaîne d'effacement en comporte six. Imaginez le 
même système appliqué à un dessin de cinquante carac- 
tères!... Ici, les POKE font une rentrée en scène 
triomphale, pour nous proposer une nouvelle ruse. Il 
s'agit tout d'abord de créer une chaîne contenant 
n'importe quoi, pourvu qu'elle comporte autant de 
caractères que le dessin recherché. Notre dessin com- 
porte dix caractères, et la chaîne d'effacement en 
comporte six. Les chaînes seront donc (faisons un 
NEW auparavant) : 


19 DEFSTR A 


20 4="9123456789" : Rem dix caractères quelconques, 
ici faciles à compter 


30 AE="912345" : Rem six caractères quelconques 

A ce stade, repérons les emplacements E1 et E2 où 
sont mémorisées les chaînes À et AE (voir Manuel 
page 8/9) : 

LG V=-VARPTR(A) : E1 = PEEK(V+1) + 256*PEEK(V+2) 

5@ V=-VARPTR(AE) : E2=PEEK(V+1) + 256*PEEK(V+2) 

Après exécution de ces lignes, E1 et E2 sont les 
adresses respectives du 1e caractère de A et AE. 

Nous allons donc pouvoir remplacer le contenu sans 
intérêt de ces chaînes par notre dessin et notre chaîne 
d'effacement, en "pokant" à ces emplacements les codes 
voulus, lesquels peuvent être contenus dans des lignes 
de DATA : 

6@ RESTORE : Rem initialise le pointeur de DATA 

70 FOR I=@ TO 9 : Rem A est longue de 19 caractères 


8Q@ READ J : POKE E1+I,J : Rem les valeurs lues dans 
les DATA de la ligne 199 sont pokées dans A 


99 NEXT I 

190 DATA 178,183,144,26;24,24,152,137,144 : 

Rem nous reconnaissons les valeurs des codes graphi- 
ques et de contrôle du bonhomme 


119 FOR I=@ TO 5 : Rem AE est longue de 6 caractères 


129 READ J : POKE E?+I,J : Rem les valeurs lues en 
149 sont pokées dans AE 


139 NEXT I 


149 DATA 195,26,24,24,24,195 : Rem valeurs des codes 
de la chaîne d'effacement 


Utilisons à présent ces chaînes, comme précédemment : 


159 FOR X=Q TO 899 


169 PRINT(@ X,A ; : Rem affichage dessin 


170 FOR 1=1 TO 19 : NEXT I : Rem temporisation 


189 PRINT (@ X,AE : : Rem effacement dessin 


199 NEXT X 


Faisons un RUN. Parfait, ça marche. Faisons ensuite 
LIST 24-30, car nous nous doutons bien que notre 
petite manipulation a dû altérer ces lignes... 
Effectivement, des instructions bizarroïdes ont pris 
la place des chiffres dans les chaînes A et AE. 
-Nous venons d'aborder le domaine des "supergraphi- 
ques"... nc. 

Les supergraphiques sont des chaînes de caractères 
où l'on a stocké des caractères graphiques, sans 
passer par l'instruction CHRS. Ces chaînes produisent 
lors du listage, des suites d'instructions incohé- 
rentes, comme celles des lignes 29 et 3Q. 

Les supergraphiques se justifient surtout pour des 
dessins assez importants : il faut qu'un gain de 
place en mémoire soit la contrepartie de la complica- 
tion qu'ils introduisent. Pour introduire les codes 
graphiques et de contrôle dans les chaînes, on 
emploie surtout la méthode du programme précédent : 
créer des chaînes inutiles, mais de même longueur 
que les graphiques voulus, repérer leurs emplace- 
ments à l'aide de VARPTR, et, au moyen’de boucles, 
on "poke'" dans les chaînes les codes graphiques 
contenus dans des DATA. 


Mais pourquoi obtenons-nous, en listant ces chaînes, 
des instructions pêle-mêle ? Cela tient à la façon 
dont le Level II mémorise les instructions d'un pro- 
gramme. Lorsqu'on tape "Enter" à la fin d'une:ligne 

de programme, le Level II ne la mémorise pas telle 
qu'elle a été frappée (sous forme de caractères 
ASCII). Il commence par la parcourir, à la recherche 
d'instructions BASIC reconnaissables. Dans cette phase, 
i1 ne se préoccupe nullement de la syntaxe. Mais 
lorsqu'il reconnait un mot-clé de Basic, il lui 
substitue aussitôt son "token" (mot anglais que je 

me risquerais à traduire par "symbole" plutôt que 
“jeton"). Le symbole d'une instruction BASICest un 
octet que le Level II mémorise à la place de l'ins- 
truction, pour économiser de la place en mémoire. 

Lors du listage du programme, l'instruction réapparait 
sous sa forme lisible (suite de caractères ASCII). 
Ainsi, par exemple, PRINT est remplacé par l'octet 
178. Et inversement, lors du listage, tout octet va- 
lant 178 sera remplacé par le mot PRINT. Seules 
exceptions : tout ce qui se trouve entre guillemets 
ou derrière un REM est laissé tel quel. Et lorsque, 
malicieusement, nous mettons des codes graphiques 
dans des chaînes où il ne devrait pas y en avoir 
normalement, le BASIC les liste comme des instructions. 
Les symboles d'instructions s'étendent de 128 à 255, 
et les codes des caractères graphiques de 129 à 191. 


On peut mettre à profit cette propriété pour les 
graphiques n'utilisant pas de caractères de contrô- 
le, par exemple pour les dessins tenant sur une 
seule ligne.Supposons par exemple vouloir écrire 

un sous-programme posant à l'utilisateur la question 
"oui ou non", et revenant au programme principal: 
dès que l'une des touches O ou N a été enfoncée. 
Pour rendre le programme plus attrayant, faisons en 
sorte d'afficher ladite question en gros caractères. 
La fig. 5 donne un graphisme possible pour les 
lettres O0, U, I et N que comporte la phrase “oui ou 
non", ainsi que les codes des CG qui en résultent. 







codes: 
desCG: 


fig 5 : graphisme des lettres O,U,I et N. Chaque 
lettre occupe 3 CG, plus un espace de .séparation 


On pourrait définir quatre chaînes, une pour chaque 
lettre, au moyen de CHR$ : 

19 DEFSTR C : Rem C. comme chaîne. Pourquoi 
toujours A ? 

29 CO=CHR#S(191)+CHRS(179)+CHR#( 191) : Rem chaîne du 
(e) 
30 CU=CHRS(191)+CHRS(176)+CHR#(191) : Rem chaîne du 
= 5 

Etc" 


LA MEMOIRE VIDEO 


On appelle ainsi le segment de mémoire occupant les 
adresses 15369 à 16383. Chaque caractère de l'écran 
(il y en a 1024, répartis en. 16 lignes de 64 carac- 
tères) occupe un octet de la mémoire vidéo. Ainsi, 
l'adresse 15364 correspond au caractère de position 
9 (en haut, à gauche); et l'adresse 16383 correspond 
au caractère de position 1923 (en bas, à droite). 
Hum, un octet, avons-nous dit ? Pas tout à fait : 

si vous ouvrez votre TRS-80, vous dénombrerez 7 
boîtiers de 1924 bits pour la mémoire vidéo (et 
ferez sauter la garantie par la même occasion). 
Donc, chaque caractère occupe en réalité sept bits 
(un septet?) de la mémoire vidéo, mais on le compte 
toujours comme un octet. Simplement, le 7e bit de 
l'octet n'est pas mémorisé. Le caractère est alpha- 
numérique si le bit b7 (le 8e) vaut @, et graphique 
si ce bit vaut 1 : ainsi les circuits de l'interface 
vidéo font-ils la distinction. 



















Afficher un caractère se fait donc en mettant dans 
la mémoire vidéo le code de ce caractère, à la po- 
sition où on veut le voir. L'instruction POKE est un 
moyen évident d'écrire un octet en mémoire, et PRINT 
‘en est un plus commode. Si N est le code d'un carac- 
bère, compris entre @ et 191, et si X est un entier 
compris entre QG et 14923, les instructions 

PRINTÆ X,CHRS(N) et POKE 15360+X,N ont exactement 
le même effet. 












Ce fameux bit b6 n'est pas mémorisé, avons-nous dit. 
Mais lorsqu'on opère sur des caractères graphiques, 
mieux vaut le considérer comme valant zéro. En effet, 
lorsque b6-9, les valeurs des codes des caractères 
graphiques s'étendent de 128 (1490 @G0Q en binaire) 
à 191 (1911 1111 en binaire)... Si b6 vaut 1, ces va- 
leurs deviennent 192 (119@ G999 en binaire) à 255 
(1111 1111 en binaire). Certes, lorsque l'on 

affiche des caractères graphiques par des POKE dans 
la mémoire vidéo (exemple : POKE 1536@,129 produit 
le même effet que SET(G,@)), les deux valeurs du 

bit b6 produisent le même caractère, puisque ce bit 
n'est pas mémorisé. Mais, pour le Basic, les codes 
192 à 255 sont les codes de compression d'espace, 
valant de @ à 63 espaces : un PRINT "X'"; CHRS(194); 
"X"; affichera deux X séparés par deux espaces.C'est 
donc pour rendre compatible les effets des instruc- 
tions CHRS et POKE qu'il vaut mieux prendre b6=9, 

en calculant des codes de caractères graphiques. 






















Mais, vu le comportement du Basic, nous pouvons utili- 
ser le tableau des symboles de la page 41. Faisons 
un NEW, et tapons :+ 


14 DEFSTR C 

29 CO=+USINGCONTUSING " Rem chaîne du O 
30 CU=+USINGDEFUSING " : Rem chaîne du U 
LG CI=+CONTUSINGCONT " Rem chaîne du I 
59 CN=+TROFFGETUSING " : Rem chaîne du N 


Ce n'est pas une erreur, il y a bien un Plus (+) 
au lieu d'un guillemet (") après le signe Egal (=) 
dans les lignes 29 à 56. Les instructions BASIC qui 
se trouvent dans les chaînes sont celles dont les 
symboles ont même valeur que les codes graphiques 
voulus, et ont été relevées dans le tableau. Ainsi, 
pour produire un caractère graphique de code 191, 
une instruction USING, dont le symbole est 191, a 

. été placée dans la chaîne. Notons qu'il ne faut pas 
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mettre d'espace entre les instructions dans les 
chaînes, mais qu'il en faut un avant le second 
guillemet, pour séparer les lettres lors de l'im- 
pression. Après la pression de Enter, le BASIC va 
remplacer chaque instruction des lignes 29 à 5G par 
son symbole, misqu'elles ne sont pas entre guille- 
amsEtss USING va donc devenir 191, le Plus (+) va 
devenir 295, le CONT sera changé en 179, etc... La 
syntäxe de ces lignes est incorrecte, mais elle 
n'est examinée par le BASIC que lors de l'exécution 
du programme. Si les instructions étaient entre 
guillemets, le BASICles laisserait inchangées, 
c'est pourquoi il faut mettre autre chose qu'un 
guillemet après le Egal (=). Beaucoup d'instructions 
ou de signes feraient par ailleurs l'affaire. 
A présent, affichons notre "oui ou non" en haut de 
l'écran : 
69 PRINT ®, CO; CU;CI; CHR$( 195) ; CO; CU; CHRF( 195) ; 
CN;CO;CN; : Rem le caractère 195 représente trois 
espaces (le blanc entre les mots)- 


Mais maintenant, nous devons transformer les Plus 
(+) en guillemets ("), faute de quoi un RUN nous 
donnera une SN ERROR. Le moyen le plus simple est de 
taper en mode commande (c'est-à-dire sans n° de 


utilitaire 
Détectez 


et modifiez 


vos mots-clés 


Le programme MODPROG dont le listing est donné à la 
suite de cet article permet la recherche et le rem- 
placement éventuel des mots "réserves" du BASIC. 
Exemple : remplacement de tous les PRINT par des 
LPRINT pour éditions sur imprimante. Il permet éga- 
lement la détection par numéro de ligne d'un mot-clé 
déterminé ou de n'importe quel caractère ASCII appa- 
raissant dans le texte du programme. Le présent 
utilitaire vient donc complèter les diverses ins- 
tructions REF que l'on trouve dans les systèmes 
d'exploitation NEWDOS et NEWDOS80 qui ne permettent 
que la localisation des noms de variables unique- 
ment. 
Ce programme, utilisé conjointement avec la commande 
MERGE du BASIC disque, peut aussi être exploité par 
les utilisateurs cassette, à condition qu'ils dis- 
posent de l'utilitaire réalisant cette même fonction. 
LE MODE D'EMPLOI 
1) Entrez sous BASIC disque et tapez le programme 
ci-dessous. 
2) Sauvegardez le programme sous format ASCII (SAVE 
“MODPROG" ,A). 
3) Tapez ou chargez le programme que vous voulez 
modifier. 
ATTENTION : Pour ne pas entrer en eonflit avec 
MODPROG, votre programme ne devra pas comporter de 
numéros de lignes inférieurs à 10. Dans le cas 
contraire, procéder préalablement à sa renumérota- 
tion. 
4) Tapez la commande MERGE "MODPROG" pour provo- 
quer la fusion entre votre programme et l'utili- 
taire de modification. 
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LL 
GES 


ligne) une boucle transformant tous les Plus (de 
‘symbole 295) en guillemets (de code ASCII 34). Bien 
sûr, i1 faut qu'il n'y ait pas d'autres Plus dans le 
programme que ceux qu'on veut transformer. Comme les 
programmes Basic sont stockés à partir de l'adresse 
17129, la boucle est 

FOR 1=17129 TO 180% : Rem 18909 valeur approxima- 
tive 

IF PEEK (1)-205 THEN POKE 1,34 : NEXT I 

ELSE NEXT I : Rem les octets 295 deviennent des 34 


Vérifions-la soigneusement avant de taper Enter. 
Dès qu'elle est terminée, listons les lignes 29 à 
59 : les Plus sont effectivement devenus des 
guillemets réglementaires, et la syntaxe est à 
présent correcte. Mais les chaînes contiennent 
toujours des CG. Il faut éviter dorénavant d'éditer 
ces lignes, sous peine de devoir recommencer la 
manipulation, après avoir remis un Plus à la place 
du Egal. 

Le prochain volet de cet article traitera de cer- 
taines routines en lañgage-machine, accélérant 
l'affichage de certains graphiques... 


Frédéric MORA 

















5) Répondez aux questions posées par MODPROG en- vous 
servant du tableau de correspondance "Mot-clé/ 
token" donné ci-contre. 


DEUX EXEMPLES D'APPLICATION 


a) Modification de programme 
Soit à remplacer tous les "PRINT" d'un programme 
par des “"LPRINT". Le token associé à PRINT est 
178, celui associé à LPRINT est 175 en décimal 
(voir tableau). 


- à la question "Modification du caractère de 
numéro de token ?", répondez : 178 
- à la question "En un caractère de numéro de 
token ?", répondez : 175 
A partir de cette étape, le programme va automa- 
tiquement remplacer les PRINT en LPRINT, en affi- 
chant pour chaque changement effectué, le numéro 
de la ligne concernée (Numéro de la ligne modi- 
fiée =3 xx). 
Après cela, la question suivante est posée 
"Voulez-vous détruire MODPROG ?". Si la réponse 
est "O0", les lignes O0 à 9 sont supprimées et vous 
pouvez exécuter normalement le programme modifié. 
Dans le cas contraire (réponse différente de 
"O"), l'exécution de nouvelles modifications peut 
être entreprise. 
Remarque : le remplacement d'un mot réservé par 
un caractère ASCII - et inversement - peut être 
effectué. 


Une application intéressante dans les changements 
entre caractères ASCII est le remplacement de 


b) 


AND 
ASC 
ATN 
AUTO 
CDBL 
CHRS 
-CINT 
CLEAR 
CLOAD 
CLOSE 
CLS 
CMD 
CONT 
cos 
CSAVE 
CSNG 
CVD 
CVI 
CVS 
DATA 
DEF 
DEFDBL 
DEFINT 


"MSHIFT 


simple 


DEFSNG -154 
-152 

-182 

-138 

-157 

-58, 149 

-128 

-233 

-194 

-195 

-158 

-224 

-163 

-242 

-190 

-129 

-218 

164 

-145 

141 

-143 

INKEYS 201 
INP -219 
INPUT -137 
INSTR -197 


-216 
-170 
248 
213 
-110 
-156 
-180 
181 
-167 
-234 
-235 
-223 
-175 
-171 
200 
168 
-250 
238 
-236 
-237 
169 
-187 
-135 
203 
-161 


STEF 
STOP 
STRINGS 


RETURN 
RIGHTS 
RND 
RSET 
RUN 
SAVE 
SET 
SGN 
SIN 
SOR 


Codes des instructions par ordre alphabétique. 





a" en "'". En effet, ce premier caractère, 
lorsqu'il est frappé par mégarde dans un "PRINT " 
provoque une erreur de syntaxe indétectable à la 


relecture du programme (code © - 


SHIFT à = 96). 


Détection de mots-clés où caractères ASCII 

Soit à rechercher la présence de tous les "REM" 
La procédure est sensiblement 
équivalente à celle utilisée en modification et 


d'un programme. 


64, code 


te, et étant donné la rapidité d'affichage des 
lignes détectées, de conserver une trace écrite. 
Remplacez alors (manuellement !) PRINT par LPRINT 
dans la seconde partie des lignes 1 et 8. 


ET SI VOUS DESIREZ AMELIORER LE PROGRAMME . 


il suffit de répondre la même valeur aux deux 


premières questions (147 dans le cas des REM). A 


partir 


numéros des lignes où apparaissent le token 147. 


Remarque : 


de cet instant, le programme affichera les 


Dans ce type d'exploitation, il peut 


être intéressant pour les possesseurs d'impriman- 


n 


CLS : À= PEEK(16548)+PEEK (16549) # 


+PEEK(A+1)#256 


BQ 
BE 
d 
5 
Li] F 
a 


3 


pa 


FICATIONS OU RECHERCHES TERMINEES” 
A=NF : GOTO4 


fi 
3 
PF 


Les 
ï 


TH 


“sf Or LA 


TH 


DE TOKEN ==} C : 


Vous pouvez : 


. Passer en langage machine en vue d'améliorer la 


rapidité d'analyse du programme. 


. Faire une recherche combinée de plusieurs carac- 


tères ASCII à la fois. 


. Faire une recherche et une modification opérant 


sur une portion du programme. 


. Faire une recherche et une modification opérant 


directement sur un fichier disque. 
Rémy Pineau. 


258 : FOR B=0 TO 9 : A=PEEK(A) 


INPUT "MODIFICATION DU CARACTERE DE NUME 


PRINT : INPUT 


TOKEN ==3 SCT GOTO4&:REMI4 
T0=7-65536 : IF PEEK(TO)=TC THEN POKE TOzCT : PRINT : IF TC<2?c 
LA LIGNE MODIFIEE ==} iLN : ELSE PRINT 
UMERO DE LIGNE OÙ APPARAIT LE TOKEN"3CT3" ==} "3LN : GOTO2:REM 


THEN FRINT "NUMERO DE 


“EN UN CARACTERE DE NUMERO 


WEXTZ : A=NP : IF PEEK(A)+PEEK(A+1)=0 THEN PRINT : PRINT "MODI 


4 ELSE NP=ENP+45534 : 


PRINT ELSE IF NP<=32767 THE 


:REMCE 


INPUT "VOULEZ-VOUS DETRUIRE MODPROG (LIGNES 0-9); (O/N)"3T$ : 


T$£>”"O0"THEN PRINT : 


END ELSE PRINT # DELETE 0-9 : END:REM9&À 


L3=8 : LO=A+1 2 IF L3332767 THEN L3=L3-655346 ELGSE IF L02332767 


EN LO=LO-65536:REMDF 


NP=PEEK{L3)+PEEK (LO)+*2 


THEN L2=L12-645536:REMDC 


S6:IF NP3>32767 THEN NP=NP-85536:REMF2 
L1=A+2 : L2=A+3 : IF L1332767 THEN Li=L1-65536 ELSE IF L233276 


LN=PEEK(L1)+PEEK(L2)%256 =: 


EN 1:REM#À 


FOR Z=X TO NP-1:1F 2332767 


8 IF PEEK{Z)=TC THEN POKE Z:CT: PRINT: IF TC<3>CT THEN PRINT "NUM 


EF 
AP 


Le 


Q DE LIGNE MODIFIEE ==> 


PARAIT LE TOKEN"3CT:" 


ELSE PRINT "NUMERO DE LIGNE OU 


==} “:LNIREMSS 
CONOINEMNE Copyright TRËCE et Rems Pineau HE 
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125 
126 
127 
128-END 
129-FOR 
130-RESET 
131-SET 
132-CLS 
133-CMD 
134-RANDOM 


150-TRON 
151-TROFF 
152-DEFSTR 
153-DEFINT 
1542DEFSNG 
155-DEFDBL 
156-LINE 
157-EDIT 
158-ERROR 
159-RESUME 


175-LPRINT. : 


176-DEF 
177-POKE 
178-PRINT 
179-CONT 
180-LIST 
181-LLIST 
182-DELETE 
183-AUTO 
184-CLEAR 


200<MEM 
201-INKEYS 
202-THEN 
203-N0OT 
204-STEP 
205- + 
206- -— 
207-* 
208-/ 
209 


225-C0S 
226-SIN 
227-TAN 
228-ATN 
229-PEEK 
230-CVI 
231-CVS 
232-CVD 
233-EOF. 
234-L0C 


135-NEXT 160-OUT 
136-DATA 161-ON 


185-CLOAD 210-AND 235-LOF 
186-CSAVE 211-0R 236-MKIS 


137-INPUT 162-OPEN 187-NEW 212-> 237-MKSS 
138-DIM 163-FIELD 188-TAB 


213- = 238-MKDS 
139-READ 164-GET 189-TO 214-< 239-CINT 
140-LET 165-PUT 190-FN 215-SGN 240-CSNG 
141-GOTO 166-CLOSE 191-USING 216-INT 241-CDBL 
142-RUN 167-LOAD 192-VARPTR 217-ABS 242-FIX 
143-IF 168-MERGE 193-USR 218-FRE 243-LEN 
1H4-RESTORE 169-NAME 193-ERL 219-INP 244-STRS 
145-GOSUB 170-KILL 195-ERR 220-POS 245-VAL 
146-RETURN 171-LSET 196-STRINGS 221-S0R 246-ASC 
147-REM 172-RSET 197-INSTR 222-RND 247-CHRS 
148-STOP 173-SAVE 198-POINT 223-L0G 248-LEFTS 
149-ELSE 174-SYSTEM 199-TIMEB 224-EXP 249-RIGHTS 


Codes des instructions par ordre croissant 








DORE — 


Pour lire vos cassettes 
«nouvelles roms » 





Depuis que TANDY a modifié les ROMS du modèle 1, 
quelques problèmes sont rencontrés durant la lecture 
de certains programmes sur cassette. 


° BIT “SYNCHRO®” BIT DÉ DONNEE+ BIT "SYNCHRO* BIT DE DONNEE 
EGAL A 1 EGAL À O0 


A 


F—rimnc— 


Après un survol technique sur le principe de lecture 
des informations issues du magnétophone, l'auteur 
nous donne des conseils pratiques, ainsi qu'un utili- 


[rime 
taire permettant de remédier à ces problèmes. 





La valeur ainsi recueillie ("O" ou "1) est stockée 
dans le bit 7 de l'accumulateur. Elle est ensuite 
transférée dans l'indicateur Carry puis, par une 
rotation circulaire, on vient la ranger dans le bit 
0 de l'octet en cours de constitution (les bits pré- 
cédemment lus étant décalés d'une position vers la 
gauche). (figure 1) 


PRINCIPE DE LECTURE D'UN OCTET EN PROVENANCE 


la lecture sur magnétophone se fait séquentiellement, ET 
c'est-à-dire bit par bit, au rythme de 500 bauds L F————= 214 
(500 bits par seconde). Il est donc nécessaire 
d'effectuer 8 lectures successives pour obtenir DÉS ACCUMULATEUR 
l'équivalent d'un octet. 

D'une manière générale, l'absence de signal sur la 
cassette correspond à un "O0" binaire alors que la 
présence d'une pseudo-sinusoide correspond à un "1" 
binaire. 

Paradoxalement, on constate qu'une absence est signi- 
ficative d'où l'ambiguité de la saisir. IL a donc 


| ANS TN 
HN CEaue LU 





été admis de précéder chaque bit de donnée par un 
bit de synchronisation. 

Ce bit de synchro est une sorte de sonnette d'alarme 
qui indique au micro que dans un délai donné, il doit 
recevoir un signal. S'il ne reçoit rien, il en déduit 
que c'était un bit "O0", par contre, s'il reçoit quel- 
que chose, c'est un bit "1". 
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Un exemple décomposant bit par bit comment se fait 
l'acquisition d'un octet enregistré sur cassette, 
permettra de clarifier les esprits. 

Supposons que l'octet à transférer en mémoire soit 
la lettre "Z" codée (5A) en hexadécimal et 
(01011010) en binaire. L'enregistrement aura physi- 
quement l'allure de la figure 2. 





0 





A chaque lecture, la zone tampon recevant les bits 

de données en provenance de la cassette est décalée 
d'une position vers la gauche et le dernier bit re- 
cueilli est stocké à l'extrême droite de cette 


LECTURE 


LECTURE 


LECTURE 


LECTURE 


LECTURE 


LECTURE 


LECTURE 


Go) 
Ci 
[oi 
CJ 
Eu 
UJ 
Co] 


LECTURE 


J'ai signalé tout à Î'heure toute l'importance que 
présente le délai entre le bit de synchronisation 

et le bit de données. 

Or, pour des raisons de fiabilité de lecture, TANDY 
a été amené à modifier ce timing dans ses nouvelles 
ROMS. Les octets situés aux adresses 585 et 592 sont 
passés respectivement de 65 à 96 et de 118 à 133. IL 
en résulte donc un déphasage quand on tente de lire 
un programme créé avec les routines de lecture des 
anciennes MEMS. 

Ceci est une première explication aux difficultés 
rencontrées par les détenteurs des nouvelles ROMS 
(celles qui affichent ‘MEM Size). 

Il semblerait également que sur certaines cassettes 
vendues par TANDY le nombre d'octets réservés au nom 
du programme proprement dit soit de 7 au lieu de 6 
(voir descriptif joint du format binaire). 

Il se produit donc un décalage de un octet et 1a rou- 
tine de lecture ne reçoit plus ce qu'elle est en 
“droit d'attendre. 

Il a été avançé également que le calcul du Checksum 
(octet de controle contenant la somme modulo 256 des 
octets constituant le bloc de données) avait été pro- 
bäblement modifié. Ne disposant pas des anciennes 
MEMS, je n'ai pu le vérifier. Mais si c'était le cas, 
une copie même lisible mais inchangée du programme 
ne ferait que repousser le problème. 

Aussi le programme joint ne tient-il pas compte de 
cet octet de contrôle particulier. 


SYNCHRO SYNCHRO SYNCHRO  SYNCHRO SYNCHRO SYNCHRO SYNCHRO SYNCHRO 


BIT ?7 BIT 6 BIT 5 BIT 4 









BIT 3 BIT 2 BIT 1 BIT 0 





dernière. 

A l'issue de 8 lectures consécutives (synchro + don- 
née) l'octet est entièrement constitué et peut être 
délivré pour une autre utilisation. (figure 3) 


OCTET EN FORMATION 


AB PES AT AS ET Le) 


(fie.3) 


CONSIGNES D'UTILISATION DU PROGRAMME DE CHARGEMENT 


a) À la mise sous tension du système, protéger la 
partie haute de la mémoire en répondant 32628. 


b) Charger ou saisir le programme joint et l'exécu- 
ter. 


c) Mettre la cassette TANDY récalcitrante en position 
de lecture. 


d) Taper alors SYSTEM puis /32628. 


DEROULEMENTS POSSIBLES DES OPERATIONS 


a) Le magnétophone tourne et rien n'apparaît sur 
l'écran. 
Régler le volume son du magnétophone jusqu'à voir 
apparaître quelque chose et recommencer l'opéra- 
tion. 


b) Un "C" apparaît en haut et à droite de l'écran 
suivi du ready Basic. 
L'octet de synchronisation a été détecté mais 
l'octet suivant ne correspond pas à un format 
binaire. Modifier légèrement le volume son et 
recommencer. 


c) Le nom du programme apparaît à droite de l'écran 
puis "C'" et ready. 
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d) 


e) 


f) 


255 OCTETS 


-STRUCTURE D°UN PROGRAMME EN FORMAT BINAIRE ENREGISTRE SUR CASSETTE 
EE me 


AMORCE DE 255 OCTETS A ZERO POUR. 


STABILISER LA VITESSE DU MAGNETOPHONE 


OCTET DE SYNCHRONISATION DU PROGRAMME 


OCTET INDIQUANT UN FORMAT BINAIRE 


NOM DU PROGRAMME SUR 6 QU 7 OCTETS SUIVANT 
(COMPLETE EVENTUELLEMENT PAR DES 


VERSION 
ESP ACES) 


OCTET 


OCTET 
ADRESSE 


D°IMPLANTATION 
Cr OCPETS 


CHECK SUM 


CHECK SUM 


ADRESSE DE 
LANCE MENT 


OIGTET 


2ROICINENRS 
D'ENTREE 


Il se peut que le nom du programme fasse 7 octets 
et dans ce cas la détection de l'octet indiquant 
un bloc de données ne se fait pas. 

‘Il y a donc lieu de modifier la ligne 2150 du pro- 
gramme par DATA 6,7. 


Deux astérisques apparaissent en haut et à droite 
de l'écran, celui de droite clignote puis un "C" 
apparaît suivi de ready. 

Une très légère modification du volume son est 
alors nécessaire. 


Si tous les problèmes précédents sont résolus, 
l'exécution du programme chargé devrait interve- 
nir à la fin de la lecture. 


Si rien de tout cela n'y fait, il est probable 
qu'une partie de la cassette est déteriorée, donc 
illisible. 11 y a toutefois encore une chance, car 
bien souvent, il existe un second enregistrement 
du programme un peu plus loin sur la cassette. 
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DERNIER 3LOC 


OCTET DE CONTROLE 


DE 


INDIQUANT UN BLOC DE DONNEES 


INDIQUANT LA LONGUEUR DU BLOC 
DE DONNEES 


IND IQUANT L'ADRESSE 
D'[IMPLANTATION DES DONNEES 


CODE EXECUTABLE Z80 DU PROGRAMME 


(SOMME MODULO 256) 


3SLOC DE DONNEES SUIVANT 


DONNEES 


INDIQUANT LA FIN DU PROGRAMME 


INDIQUANT LE POINT 


DU PROGRAMME 


(figure 4) 





Un moyen simple pour se positionner au début de 
celui-ci est de débrancher les 3 prises "jack" du 
magnétophone et d'écouter la musique binaire 
(BOFF). Entre les 2 enregistrements, il existe 
une séparation qui ne produit aucun bruit. C'est 

à cet endroit précis qu'il faut réfaire une tenta- 
tive. 


RESTRICTIONS A L'UTILISATION DU PROGRAMME 


a) 


b) 


Il va de soi que les programmes qui s'implante- 
raient au delà de l'adresse 32627 ne sont pas 
chargeables car ils viendraient écraser le char- 
geur. 

Certains programmes (dont MICROCHESS) sont décom- 
posés en 2 parties : la première (chargeur) ayant 
pour but de lire la deuxième (données) au moyen 
des routines de lecture de 1a ROM. C'est un autre 
cas d'impossibilité d'utilisation. 


€HRISTOPHE YONNET 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


ss =s=s———— 
=<=2=====z========== 


RE — 
<< === =============================-=-===2=-=--- 


PROGRAMME : CHARGEUR DE PROGRAMMES SOUS ANCIENNES MEMS 
MATERIEL 3 TRS 80° MODELE 1 + BASIC NIVEAU II > 16x RAM 
COPYRIGHT : CHRISTOPHE YONNET (1981) 
SRSSS£SSSEISLZISSSZIESSSESLILLZ=SES==- EL =Zz===22S=z======222---z==2--- 
FOR AD = 32628 TO 32767 : READ CO : POKE AD,-CO0 : NEXT AD 
REM 
REM CINEMATIQUE DE LECTURE D'UN FORMAT BINAIRE 
REM SSIZ=====ZZI==========Z==z=======-=-==-------=-=- 
REM 
205-201,1 :REM CALE. 6S7 : EFFACEMENT DE L'ECRAN 
62,0 :REM LD A/Q s SELECTION DU 
205-18/-2 :REM CALL 530 ; MAGNETOPHONE 
205/212/127 :REM. ADRI1 CALE 2 LOCT LECTURE OCTET/CASSETTE 
2547165 2REM CP 165 3 TEST SI OCTET SYNCHRO 
32,249 2REM JR NZ/ADRI1 s SI NON RETOUR LECTURE 
6242 2REM LD A+" sr AFFICHAGE 2 ASTERISQUES 
50-62-60 2REM LD C15422)4,A >; EN HAUT ET A DROITE 
50-63-60 :REM LO (15423),A ; DE L'ECRAN 
205-212,127 :REM CALL LOCT > LECTURE OCTET SUIVANT 
254785 2REM (Es 85 : TEST SI FORMAT BINAIRE 
32/49 :REM JR NZADR6 : SI NON ALLER A ADR6 
66 :REM LD B,-6 rs LECTURE ET AFFICHAGE 
33/54/60 2REM LD HL,154146- ; DU NOM DU PROGRAMME 
2057212127 2REM  ADR2 CALL-- LOCT ;: EN HAUT ET A DROITE 
119 2REM LD CHL),A rs DE L'ECRAN PAR 6 
35 2REM INC HL ; LECTURES SUCCESSIVES 
16,249 2:REM DJNZ ADR2 7 OU 7 SI NECESSAIRE 
20546492 2REM ADR3 CALL SSé6 : CLIGNOTEMENT ASTERISQUE 
205-212/127 :REM ECACEÉ COCT : LECTURE DU TYPE DE BLOC 
254120 2:REM CP 120 r TEST SI FIN PROGRAMME 
32/4 2REM JR NZ/ADR4 rs SI NON ALLER A ADR& 
205-203/127 :REM CALL LADR : LECT ADRESSE LANCEMENT 
2733 :REM JP CHL) ; ET EXECUTION 
254760 S3REM ADR4 CP 60 5 TEST SI BLOC DE DONNEES 
32/19 :REM JR NZ/ADR6 »s SI NON ALLER A ADR6 
205/212/127 :REM CALL LOC 7 LECTURE LONGUEUR BLOC 
TA :REM LD B,A ; CHARGE DANS REGISTRE B 
205/203/127 :REM CALL  LADR ;s LECT ADR IMPLANTATION 
205,/212/127 :REM ADRS CALL POCT 7 LECTURE OCTET PROGRAMME 
119 2REM LD CHL) ,A ;:. ET CHARGEMENT 
L SE :REM INC HL 5 +1 ADRESSE IMPLANTATION 
16-249 2REM DJ NZ ADRS 5 RETOUR LECTURE DONNEE 
205,-212,127 :REM CALL LOCT 7 LECTURE CHECKSUM 
247219 2REM JR ADR3 5 RETOUR LECT BLOC SUIVANT 
62/67 3REM ADR6é LD A5 CS rs AFFICHAGE D'UN C EN HAUT 
50/62/60 2REM LD (15422),A >; ET A DROITE DE L'ECRAN 
195,-204,6 :REM JP 1740 ; RETOUR AU BASIC 
REM 
REM ROUTINE D'ACQUISITION D'UNE ADRESSE 
REM ZZ=Z=Z=Z==Z=Z====================-=-----=- 
REM 
205/212,127 2REM LADR CALL LOCT : LECTURE DE L'ADRESSE 
111 2:REM LD LA ; D'IMPLANTATION OU 
205,212,127 :REM CALL LOCT s DU POINT D'ENTREE 
103 :REM LD HA s DU PROGRAMME 
201 :REM RET 7; SUR 2 OCTETS 
REM 
REM ROUTINE D'ACQUISITION D'UN OCTET SUR CASSETTE 
REM Z2=Z===Z==========Z==Z==============---=======-=-- 
REM 
197 SREMSSEOCT PUSH C : 
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ROUTINE D*ACQUISITION 


2510 DATA 229 2REM PUSH 
2520 DATA 6,8 :REM LD 
2530 DATA 205/226127 :REM ADR7  CALL 
2540 DATA 16,251 2REM DJNZ 
2550 DATA 225 :REM POP 
2560 DATA 193 :REM POP 
2570 DATA 201 :REM RET 
2580 RE“ 

2590 REM 

2600 REM 

2610 REM 

2620 DATA 197 2REM LBIT PUSH 
2630 DATA 245 2 REM PUSH 
2640 DATA 219,255 2REM  ADRR IN 
2650 DATA 23 :REM RLA 
2660 DATA 48/2951 2REM JR 
2670 DATA 6/65 2REM LD 
2680 DATA 16,254 REM ADR9  DJNZ 
2690 DATA 205,30,2 2REM CALL 
2700 DATA 6118 :REM LD 
2710 DATA 16,254 2REM ADR10 DJN2Z 
2720 DATA 219-255 :REM IN 
2730 DATA 71 :REM Lo 
2740 DATA 241 2REM POP 
2750 DATA 203,16 :REM RL 
2760 DATA 23 :REM RLA 
2770 DATA 285 :REM PUSH 
2780 DATA 205-30/%2 2REM CALL 
2790 DATA 241 2REM POP 
2800 DATA 193 2REM POP 
2810 DATA 201 :REM RET 


initiatio 


HL : 
B,8 3 ACQUISITION D'UN OCTET 
LBIT 3 PAR 8 LECTURES 
ADR7 3 SUCCESSIVES D'UN BIT 
HU & 
BC ; 

2 


D'UN BIT SUR CASSETTE 


mmmmmmmmmmmemmmmm…emmemsemememeeseesem—— 
£=<===2=ZZZZz===================-============== 


8C ; 
AF ;: 
A/255 ; BOUCLE D'ATTENTE 

; DU BIT DE 
NC/ADRB& ; SYNCHRONISATION 
8-65 3 PREMIER TIMING MODIFIE 
ADR9 ; DANS NOUVELLES ROMS 
S42 ;: RAZ TEMPON DE LECTURE 
8,118 ; DEUXIEME TIMING MODIFIE 
ADR10 7; DANS NOUVELLES ROMS 
A/255 7 LECTURE BIT DE DONNEE 
BA ; 
AF ; 
B ; BIT LU DANS CARRY 

: PUIS DANS L'ACCUMULATEUR 
AF ; 
542 ; RAZ TEMPON DE LECTURE 
AF ; 
BC ; 








Et bien compilez 
maintenant 





Vous avez probablement souffert de 1a lenteur exces- 
sive de certains programmes BASTC. Ce n'est pas tou- 
jours très gênant, mais dans bien des cas cela de- 
vient très pénalisant. Prenez l'exemple de ce laby- 
rinthe qui se dessine avec une sage lenteur: c'est 
énervant à force, et ça déconcentre pour la suite du 
jeu ! Avec un compilateur BASIC, tel que celui de 


Microsoft, une à deux secondes suffiront pour réaliser 


le même travail. Tentant, non ? 


il ne s'agira pas dans cet article, d'expliquer ce 
qu'est un compilateur. Nous nous bornerons tout sim- 
plement à dire que c'est un logiciel qui transforme 
un programme écrit en langage évolué (BASIC) en une 
sorte de langage machine, directement assimilable 
par le microprocesseur. En supprimant les intermé- 
diaires (interprêteur entre autre}, il en résulte 

un gain de temps important dans l'exécution du pro- 
gramme, qui peut atteindre un rapport de 20 ou 30. 
Ce n'est pas à négliger ! 

En réalité, il s'avère que beaucoup d'utilisateurs 
possèdent le compilateur BASCOM, mais que peu d'en- 
tre eux osent l'utiliser, ne serait-ce que parce que 
cela leur semble très compliqué, ou parce que la 
documentation est en anglais. Nous espèrons que cet 
article les aidera à faire le premier pas. 
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Les lignes qui suivent décrivent la succession des 
opérations nécessaires pour compiler un petit pro- 
gramme BASIC. Pour ne pas tricher, nous avons dirigé 
tous les messages écran sur l'imprimante, au moyen 
de la commande ROUTE de NEWDOS80. Seules, les por- 
tions de textes frappées au clavier sont soulignées 
sur le listing et quelques "bulles" qui passaient 
par là se sont accrochées à certaines lignes ... 


Le compilateur BASIC de Microsoft est composé de 
quatre programmes : BASCOM (le compilateur propre- 
ment dit), L80 (l'éditeur de liens qui permet l'union 
de différents programmes), BASLIB (la bibliothèque 
contenant les routines usuelles du BASIC) et BRUN 

(ou Basic Run, l'exécuteur des programmes compilés). 


Le programme utilisé pour notre exemple, créé préa- 
lablement avec le BASIC normal, est appelé CARRE/BAS. 
Il calcule les carrés des dix premiers nombres et 
exécute un test de vitesse d'une boucle dans laquel- 
le a été glissé un "J=1", Nous verrons pourquoi un 
peu plus tard. La date et l'heure en début et en 

fin de boucle est affichée. 
Ce programme est lancé sous 
par une commande RUN. Après 
fonctionne correctement, il 


l'interprêteur BASIC 
s'être assuré qu'il 
est ensuite sauvé sur 


NEWDOS/80 READY 
a LOAD EE BAS” 


rec BDIO SHACK'S ROM ENHANCED WITH 
RBPARAT REuDoBa0 EXTENDED AND DISK FEATURES. 
READY 
LIST 
10 Exemple de Programme BASIC à compiler 
20 CLS 
30 PRINT TAB(15) : “-- CARRES DES 10 PREMIERS NOMBRES --" 
&0 PRINT 


30 FOR NOMBREX =1 TO 10 

60 PRINT NOMBREX : “au carre donne” : NOMBREZ # 3 
70 NEXT : PRINT 

80 INPUT ‘encore une fois" : REP$ 

90 IF REP$ = “OUI” OR REP$="0" THEN 10 

100 PRINT ‘+xx TEST DE VITESSE xxx" 

110 PRINT "Heure auant la boucle : “ 3 TIMES 

120 FOR N$=1 TO 10000 : J=1 : NEXT 

130 PRINT "heure apres la boucle : " : TIMES 
READY 

>RUN —— CARRES DES 10 PREMIERS NOMBRES -- 


1 au carre donne 1 

2 au carre donne 4 

3 au carre donne 9 

& au carre donne 16 

9 au carre donne ?5 

& au carre donne 36 

7 au carre donne 49 

8 au carre donne 64 

9 au carre donne 81 
10 au carre donne 100 





drôle de doté. 







encore une fois? N 
#*+x TEST DE VITESSE +#x 
Heure avant la boucle : 11/11/11 11:37:26 
heure apres la boucle : 11/11/11 11:33:25 
READY 

save "CARRE /BAS:0":A 
READY 
>cnd's” 





ee 
— 


59 secondes... 












ne pas 
NEUDOS/20 READY oublier 4 "A“/ 


BASCOM objet bd Soree © 


ns, 
+ CARRE :0 : CARRE :0=CARRE:0 - S 
Quelle chance ! 
NEWDOS/80 READY 


Lan © 


LINK-80 3.41 Z28-DEC-80 COPYRIGHT 197980 (C) MICROSOFT 









00000 FATAL ERROR(S5) 
12835 BYTES FREE 


#CARRE :0 - $ 
DATA 8A00 8BCC £ 48D> 


BASLIEB RGQUEST 
—$4.0 8A31 —$AC 8A73 —$BEXC 8A70 
—$CISA B8A6&D CES 8434 -$END 8B18 
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-$E@SA B8ABF —$FASA BAEC -$INDA BA9D 


$INI 8420 —$IPUR SAÀR4 —$IPUB BAAC 
—$PROA 8E09 —$PVI1C BAG —$PVID SBDOF 
—$PV2A B8A78 —$PV2D 8B15 —$TABE S8A3D 
—$TIM 8H12 





19 UNDEFINED GLOBAL(S) 
34865 BYTES FREE 


HS Vi) 


#1] 
DATA 8400 8D72 < 882} 









Pas de panique … 
e‘est normal J 







Cost mieux ici... 





BASLIB RQUEST 
29385 BYTES FREE 


# CARRE :0-N-E 
DATA 8A0O0 8D72 <_ B87 





taille du progfamme 





BASLIB RQUEST 
29385 BYTES FREE 
(8A1C 8D72) 


sn ocfefs. 





NEWDOS/80 READY 
DIR 
DRIVE D NEWDOSE0 02/02/82 39 TRKS 20 FDES 27 GRANS 


CARRE/LS , CARRE/REL CARRE / CHN CARRE/EAS 

NEWDOS/80 READY LED Gr 

BRUN CARRE Qetot) Gourc® 
-- CARRES DES 10 PREMIERS NOMBRES -- (TU) 


Î au carre donne 
2? au carre donne 
3 au carre donne 
& au carre donne 
9 au carre donne 
& au carre donne 3 
7 au carre donne 
8 au carre donne 
9 au carre donne ! 
10 au carre donne 100 





encore une fois? NH 

kkx TEST DE VITESSE 4% 

Heure avant la boucle : 00/00/00 00:32:58 
heure ares la boucle : 00/00/00 00:33:07? 


NEWDOS/80 READY A 
LIST CARRE/LST # secondes !/ 
BASCOM 5.23 - COPYRIGHT 1979; 80 (C) BY MICROSOFT - 19223 BYTES FREE 
0014 0007 10 ‘ EXEMPLE DE PROGRAMME BASIC A COMPILER 
*+* 0014 CALL $4.0 
** 0017'LO0O010: 
0017 0007 20 CLS 
** 0017'LOD020: CALL $CLS 
0014 0007 30 PRINT TAB(15):"-- CARRES DES 10 PREMIERS NOMBRES --" 


#* O01A'LO0030: CALL $PROA 
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k# 
Les 
++ 
LE: 


LS 
LE: 


002F 0007 
## 
CE: 
#+ 
0038 0007 
#+ 
#+ 
++ 


003E 000$ 
ET: 
#+ 
## 
## 
#x 
ÉL: 
#4 
LE 
+ 
## 
#4 


00SE 0009 
#+ 
## 
## 
## 
++ 
#+ 
#+ 
#x+ 
#x 
#+ 
++ 
#+ 
#% 
## 


007D 0009 
## 
CE 
#+ 
#% 
## 
++ 
++ 
#+ 
#+ 
xx 


0092 000€ 
++ 
## 
++ 


001D° LD 
0020° CALL 
0023" LD 
0026" CALL 
0029 D 
002€ CALL 
40 PRINT 
002F'LO0040: CALL 
0032 LD 
0035" CALL 
20 FOR NOMBRE% =1 TO 10 
0038"LO0050: LD 


003E' 
003E' 100000: 


LD 


HL >:000F 
$TABE 

HL > <CONST> 
$PV1D 


HL : £CONST? 
$PV2D 


1 tordu 





$PROA 
HL ; <CONST} 
$PV2D 





S euîs 





HL 0001 
(NOE) :HL 


60 PRINT NOMBREZX 3; "AU CARRE DONNE” : 
003E'LO0060: CALL $PROA 
0041 LD HL: (NOŒ) ] 
0044! CALL $PVIC 
0047! LD HL > £CONST> 
0044" CALL $PV1D 
004D' LD HL: (NOZ) 
0050’ CALL $CISA 
0053 CALL $BEXC 
0056‘ D {CONST> 
0052’ LD HL:$ACX 
005E’ CALL $PVZ2A 

70 NEXT : PRINT 
00SE’LO0070: LD HL > (NOŒ) 
0041 INC HL +1 Sur NO% 
006? LD (NOT) >HL 
00465 LE HL > (NOŒ) 
0068 LD DE:FFFS 
006E' LD A:H 
0046C’ RLA 
004D' JR C:02? 
006F' ADD HL DE 
0070! ADD HL > HL 
0071 JP C2100000 
0074 CALL $PROA 
0077! LD HL > £CONST> 
0074 CALL $PV2D 

80 INPUT "ENCORE UNE FOIS" : REPS 
007D'LOOD080: LD HL 7 £CONST} 
0080 CALL $INOA 
0083 DE 00 
0084? JP Z2:100001 
0087! CALL $IPUA 
0084" DE D1 
0088’ DE 07 
008c' LD HL:RES$ 
008F' CALL $IPUE 
0092‘ 100001: 


F'RLIFAREPET = "OE 
0092'LO0090: LD 
0095 LD 
0098’ CALL 


1" OR REP$#="0" THEN 10 
DE2RES$ 

HL : SCONST} 

$EGSA 
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ta 2 
Preuuiers earccheses 
Soudi epuServes 







> 






#** 009E’ LD DE:RES 
** O009E' PUSH HL 
*+* 009F' LD HL > SCONST> 
++ OD0A7° CALL $EASA 
++ ODAS' POP DE 
++ DODA& LD A7H 
#** 0047 OR D 
** ODA‘ LD H:A 
** O0A9' LD BL 
** ODAA' OR E 
** ODA’ LD LrA 
*+* ODAC' LD A:H 
** ODAD' OR E- 
** ODAE' JE NZ ;:L00010 

00B1 O00C 100 PRINT ‘xxx TEST DE VITESSE #xxx” 
#** O0B1'LO0100: CALL SPRDOA 
*+* O0B4' LE HL : £CONST> 
++ O0E7' CALL $PV2D 

00BA D00C 110 PRINT "HEURE AVANT LA BOUCLE : “ s TIMES 
**% OOBA'LO0110: CALL SPROË 
*+ OOBD' LD HL : £CONST} 
*+x O0C0’ CALL SPV1D 
++ DOC3 CALL STIM 
*+* O0Cé’ CALL $PV2D 

00C9 000€ 120 FOR N%$=1 TO 10000 : J=1 : NEXT 
#**x O00C9'LO01i20!: LD HL:0001 
#** ODCC' LD (NE): HL 
#* O0CF'100003: 
*+* OOCF' CALL $FASA 
*+x 00D7! puy J' reste dans 
#** O0D4'’ DH £CONST} la beucle 
** DODé' LD HL : (N#) 
*+x O0D9' INC HL 
** O0DA' LD (NE) :HL 
*+x O0DD' LD HL : (NY) 
#** O0E0' LD DE:D8EF 
*# O00E3' LD A?H 
*+* O0E4' RLA 
*+* OOES' JR C:02 
*+x ODE7° ADD HL:DE 
++x ODES' ADD HL:HL 
#** OD0ES' JP C:100003 

OOEC 0012 130 PRINT "HEURE APRES LA BOUCLE : ” 3: TIMES 
** ODEC'L00130: CALL $PROA 
#*+* OOEF' LD HL : £CONST> 
** 00F2' CALL $SPYID 
** O0FS' CALL $STIM 
++ O0F8' CALL $PV2D 

00FB 0012 
** OOFE' CALL $END 
O184F 001€ 


00000 FATAL ERROR(S) 
12635 BYTES FREE 
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NEWDOS/80 READY 

DIR À 

DRIVE O NEWDOS80 02/02/82 39 TRKS 20 FRES 27 GRANS 
EOF LRL RECS GRANS EXTS SIUEC....UAL 

CARRE /LST 17/3188 256 18 4 RES EP E . 

CARRE /REL 2/233= 256 3 Î À 

CARRE / CHN 3/134 _ 258 & 1 E --ÙU.-...:..-.0 

CARRE/BAS 1/185 256 2 | | 


NEWDOS/80 READY 


ER 


disque sous le nom CARRE/BAS. Pour satisfaire le 
compilateur, il est nécessaire de le sauver en. for- 
mat ASCII (d'où le ",A" à la fin de la commande). 


Un retour au DOS est alors effectué (CMD "S") et le 
compilateur BASCOM est appelé. C'est la phase I. 
Comme il est peu bavard, il se contente d'afficher 
un "*" auquel il suffit de répondre par : 


CARRE: 0,CARRE:0=CARRE: 0 


ce qui signifie : 

le nom du programme objet (issu de 1a compilation) 
se nommera CARRE et sera placé sur le disque O0, le 
nom du fichier listé (liste de compilation) se 
nommera CARRE et sera placé sur le disque 0, et le 
nom du programme source appelé CARRE se trouve sur 
le disque 0 .... 

Si l'on veut aller plus vite, il est possible de 
passer ces paramètres au moment de l'appel du compi- 
lateur 


BASCOM CARRE:0,CARRE :0=CARRE : 0 


En réalité, les trois noms sont distingués par une 
extension implicite (qu'il n'est pas nécessaire de 
spécifier) /REL pour l'objet, /LST pour la liste 
et /BAS pour le source. Si l'on ne désirait pas de 
fichier liste, il aurait suffit de frapper : 


CARRE : O-CARRE:0 
et si l'on veut une liste mais pas d'objet 
; CARRE: 0=CARRE:0 


Le ":0" n'est évidemment pas obligatoire et le cas 
échéant, le système se débrouille tout seul. 
Il est aussi possible de faire : 


=CARRE 


et dans ce cas, aucune génération de fichiers objet 
ou liste ne sera produite. Cela peut permettre de 
s'assurer avant toute chose, qu'il n'y a pas 
d'erreurs de compilation. 

Dans le cas de notre exemple, la compilation se ter- 
mine bien puisqu'aucune erreur fatale (certaines ne 
le sont pas et n'empèchent pas "l'édition de liens" 
que nous verrons par la suite) n'est signalée. Un 
autre message nous indique que notre programme aurait 
pu être plus long de 12635 octets. 


Après la compilation, notre programme objet n'est 
toujours pas exécutable mais se trouve sous une for- 
me intermédiaire (relatif ou relogeable). Il Faut 
éditer les liens" en appelant le "linker'" : L80. 
C'est la phase II. 

Après l'astérisque, frappons le nom de notre program- 
me objet : CARRE:0.-5 


Après un bref instant, le “linker" nous signale que 
ce programme fait référence à des routines externes, 
et il en dresse la liste (il y en a 19). 

Il est donc nécessaire de satisfaire ces références 


en donnant le nom d'un fichier spécial contenant la 
librairie des routines utilisées en BASIC. Ce fichier 
s*appelle BASLIB. Afin de ne pas charger la totalité 
de la librairie (qui est énorme), il faut faire 
suivre le nom de l'indicateur "-S", afin que seules 
les routines SELECTIONNEES soient appelées en mémoi- 
re. Cette opération prend quelques minutes, aussi 
Soyez patients ! 


La commande "-U" nous indique cette fois que toutes 
les références ont été satisfaites. 

Il ne reste plus qu'à sauver le programme en 
frappant : 


CARRE :0-N-E 


ce qui signifie : sauver sur le disque 0 le program- 
me exécutable sous le nom-"CARRE" (extension implici- 
te /CHN), et retourner au DOS (-N voulant dire : 
sauver le programme sous le Nom qui précéde, et 

-E : Exit). 


La commande DIRectory nous indique que quatre 
fichiers figurent maintenant sur notre disquette. 
Pour exécuter notre programme compilé, il suffit 
maintenant d'invoquer l'exécuteur (BRUN) en lui spé- 
cifiant le nom du fichier contenant le programme à 
lancer (extension implicite /CHN) 


BRUN CARRE 


Comme nous-:pouvons le constater, le calcul d'arrondi 
est différent de celui employé par l'interprêteur 
(9.00003 au lieu de 9, par exemple). Le temps d'exé- 
cution est différent lui aussi ... puisqu'il passe 
de 59 secondes en interprété à L secondes en compilé. 


Enfin pour les petits curieux qui veulent en savoir 
plus, nous donnons la liste de compilation qui mon- 
tre comment chaque commande BASIC est traduite en 
code assembleur par le compilateur. Cela nous permet 
de voit entre autre, que le "J=1" reste dans la bou- 
cle (certains compilateurs l'auraient retiré dans 
cet exemple précis). Sans cela, le temps d'exécution 
de la boucle serait passé de 4 à 2 secondes ... 
Dommage ! 

Pour terminer, nous donnons la taille relative de 
chaque fichier (commande DIR A). 


Alors, les hésitants ? Etait-ce si difficile que 
cela ? 


J.P. du Tillet 
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utilitaire 
Un tri 
efficace 
et simple 











La nécessité du tri apparaît lorsqu'on aborde la 
gestion des données. Il s'impose pour tirer parti 
de la souplesse qu'offrent les fichiers à accès 
direct, notamment lors d'une consultation sélective 
où l'on pourra pratiquer la recherche dichotomique 
dans une table de clés triée. 


L'imagination fertile des théoriciens a produit de 
nombreuses méthodes permettant d'ordonner une suite 
de données. Mais leur multiplicité soulève le pro- 
blème dû choix pour le programmeur, car aucune ne 
rallie tous les suffrages. En règle générale, plus 
la méthode est simple à comprendre et donc à pro- 
grammer, moins elle est performante. Le temps d'exé- 
cution croît de manière exponentielle avec le nombre 
d'éléments à trier. En BASIC interprêté, dès que ce 
nombre devient un peu impé&rtant (disons au delà de 
50 ou 100 suivant la méthode employée), le tri 
s'éternise et l'opérateur scrute désespérément son 
écran figé pour de longues minutes, voire des 
heures, en rêvant peut-être à une méthode magique 
qui effectuerait ce travail à la vitesse ... d'un 
ordinateur. Il n'y a sans doute pas de place pour 

la magie en informatique, mais quelques 170 octets 
d'une routine en langage machine peuvent néanmoins 
vous faire passer du rêve à la réalité. 


L'algorithme retenu pour cette routine est celui de 
SHELL-METZNER qui allie une bonne efficacité à une 
relative simplicité de programmation. 

Rappelons que la méthode SHELL est comparable à un 
procédé RIPPLE SORT dans lequel les comparaisons 
successives s'effectueraient, non plus entre élé- 
ments consécutifs, mais entre éléments distants d'un 
pas H. Comme dans le procédé précité, la liste des 
éléments est parcourue autant de fois que nécessaire 
jusqu'à ce qu'il n'y ait plus de permutations à 
effectuer. Ensuite le pas H, pris au départ égal à 
la moitié du nombre N des éléments à trier, est 
divisé par 2 et un nouveau cycle recommence. Ainsi 
de suite jusqu'à ce que H (qui varie par valeurs 
entières, bien sûr) devienne égal à 0, ce qui marque 
évidemment la fin du tri. Le dernier cycle (où H=1) 
est donc analogue au cycle RIPPLE SORT, mais porte 
sur une liste déjà presque ordonnée par les cycles 
précédents qui ont été effectués avec de grands pas. 
Il en résulte une notable diminution du nombre total 
des comparaisons, aussi bien que des inversions, 
pour arriver au tri complet. 


L'amélioration de METZNER concerne le cycle des 
explorations de la liste. Après chaque permutation, 
une comparaison est faite avec le précédent élément 
distant du même pas H. Une nouvelle permutation est 
alors effectuée le cas échéant, et ainsi de suite 
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ORGANIGRAMME DE TRI SHELL-METZNER 


FIN DU TRI 





jasqu'à ce que la comparaison ne donne plus lieu à 
permutation ou que le début de la table soit dépassé. 
Aiors l'exploration reprend là où elle avait été 
interrompue. Ainsi un seul passage suffit pour cha- 
que pas H, ce qui réduit le nombre des comparaisons. 
D'autre part, il n'y a plus besoin de positionner 

un témoin de permutation. 


Pour un tri en ordre croissant, l'algorithme de 
SHELL-METZNER peut être représenté par l'organi- 
gramme ci-après, où : x 


- I et J sont les indices courants des tableaux. 
J a une valeur différente de I lorsqu'il y a 
retour en arrière (cycle METZNER). La confusion 
de ces deux variables augmenterait un peu le 
nombre des comparaisons, le saut de retour à 
l'exploration étant remplacé par un pas à pas 
superflu. 


- C(J) et C(J+#H) sont les clés des éléments à trier 
E(J) et E(J+H), et sont donc normalement incluses 
dans ces dernières. Si tel n'était pas le cas, il 
faudrait permuter également les clés. 


Dans la pratique, les fichiers sont généralement 
trop volumineux pour tenir dans la mémoire centrale. 
On utilise alors une table d'index dont chaque élé- 
ment est constitué d'une clé de recherche (par exem- 
ple, le nom pour un fichier d'adresses) associée au 
numéro de l'enregistrement correspondant. Si l'on 
prend la précaution de toujours coder ce numéro sur 
un même nombre de caractères ASCII (les caractères 
manquants des premiers numéros étant remplacés par 
des zéros ou des espäces), et de les placer immédia- 
tement à la suite des caractères de la clé, on peut 
alors confondre clé de tri et élément à trier. Nous 
obtiendrons ainsi un tri stable malgré l'utilisation 
de la méthode SHELL-METZNER. 


Dans un souci de simplicité, seul le tri de chaînes 
de caractères a été envisagé, ce qui couvre les 
besoins les plus courants. Les éléments seront 
classiquement définis par un tableau à une seule 


dimension, et l'élément d'ordre 0 ne devra pas être 
utilisé. Pour le fonctionnement de cette routine 
nous avons délibérément choisi d'effectuer les per- 
mutations, non pas sur les éléments eux-mêmes, mais 
sur leurs pointeurs en zone tableau. Le programme ne 
s'en trouve certes pas simplifié, mais la vitesse 
est augmentée et devient indépendante de 1a longueur 
des éléments. D'autre part, il devient possible de 
trier des éléments de longueur inégale. 


Là mise en oeuvre est particulièrement simple. Si ES 
est le nom de variable affecté aux éléments à trier, 
la routine sera appelée par l'instruction 
U=USRn(VARPTR(ES(0))). En tête, un petit programme 
d'exploration détermine automatiquement le nombre N 
des éléments à trier. Celui-ci est limité, soit par 
la dimension donnée au tableau, soit par le rang du 
dernier élément défini s'il Jui est inférieur. Ceci 
permet à l'usager de dimensionner à priori le 
tableau dans le programme sans se préoccuper du 
nombre réel d'éléments de la table. 


Certaines variantes peuvent être envisagées. Si les 
éléments à trier ont toujours la même longueur (cas 
général des tables d'index), on peut supprimer les 
17 octets des instructions repérées par un astéris- 
que. Pour trier en ordre décroissant, intercaler 
l'instruction assembleur SCF (code 37H) entre les 
lignes 900 et 910. N'utilisant que des adressages 
relatifs, cette routine peut être relogée n'importe 
où en mémoire. Toutefois n'oubliez pas de la proté- 
ger en répondant à la question MEMORY SIZE ? 


Pour ceux qui restent allergiques à l'assembleur (si, 
si, il y en a), le programme ci-dessous leur per- 
mettra quand même de bénéficier des avantages du 
langage machine. Destiné à être incorporé dans un 
programme principal de gestions de fichiers en 

BASIC, il implante la routine de tri dans l'espace 
libre de la mémoire centrale, juste au-dessous de 

la pile. De ce fait, la routine est autoprotégée à 
condition toutefois qu'il reste au moins 400 octets 
disponibles pendant l'exécution du programme. 


me mn ne mme F4 
2 FE pt 
30 ‘ PETERMINATION DE VALEURS ALEATOIRES E2 
&0 ‘ ; pe 
50 INPUT “NOMBRE D'ELEMENTS" : N 2. 
50 CLEAR Nxi4 BA 
70 N=FRE(E#)/14 : DIM E#iN) 02 
80 Y=1Eé LES 
90 FOR I=1 TO N CE. 
100 E${T)=MID#(STRS(INT(RND(D)+X)) 2) 27 
110 IF LEMN(ES$(I))<8é THEN E$(I)="0"+E$(1) : GOTO 110 SS71 
130 NEXT ie 
130 PPINT TIMES PRINT “DEBUT* EN VERSION K7 = 
140 GOSUR 1000 APPEL ROUTINE DE TRI us” 
150 PRINT TIMES PRINT “FIN EN VERSION K7 SpA 
160 END FEU 
TOR | 158 
1010 a: 
1020 ‘ ROUTINE DE TRI BINAIRE > = Ed 
1030 ‘ COPYRIGHT TRACE ET ROGER BUVAT ‘  Fé 
1040 IEC 
1050 AX=PEEK(16544)+256%(PEEK(16545)-2)-655936 : DEFUSR=AS ‘ EE— 
1060 FOR 1=0 TO 169 ? READ J : POKE A%+l:) : NEXT 2 LF 
1070 U=USR(VARPTR(ES(D))) : RETURN + Le 
0 SEE, 
1090 DATA 2057127r107:43:70743:78r35:95229;:1700:11% © ‘ EF 
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1100 DATA 352353571267 18324076719r1171207177732r243225: * 16 





1110 DATA 683 753120:203:63:71:121231:792176>200: = ES 
1120 DATA 229:3221:225:229:0:9:9:229:253:225;:33:00:35:213:" CE 
1130 DATA 17:3:302:2721:25:253r29r221:229:253:229;229:3493217:" En 
1140 DATA 253:102:2:253311071r221:86r23221r79431:%21270:0: ‘ QE 
11350 DATA 253:78:0:197r121:184:3%31145:213,229: Me 
1160 DATA Zb2190:56r36:32r24319235921br2463217:225:225:225: £E 
1170 DATA 225:32593:225:2721:225;:2709: 37 
1180 DATA 229:9:237:82:225397:187:22%3:74; 162: #0 Si 
1190 DATA 225322171162 2217117:12209:299r114:2:253s35119s51:" 82 
1200 DATA 193:253:112:0:2717113:0:217:297r164b6:56:2Âè: "85 
1210 DATA 2353221:229325332297221:229)3225: 82 
1220 DATA 237:b6:3297r:bb:2371bb1229 322132792295: 24;: 153: ié 
Les utilisateurs de Level II cassette remplaceront | mots "DEBUT" et "FIN". Ils devront également rempla- 
l'affichage du temps (TIME$) par l'affichage des cer la ligne 1050 par les.2 lignes : 
: 1030 RY=PEEK{ 16544) +35S84{PEEK (14545) -23) AS 
1035 PÔKE 165246:(A4% AND 255) : POKE 16527:42%/256 ES 
Sur le plan des performances, la vitesse de tri est numériques. 
proprement stupéfrante : Si vous avez encore la nostalgie du tri en BASIC, 
Pour la mesurer, le petit programme placé en tête du comparez les temps avec cette programmation de 
listing créera des éléments aléatoires de 6 caractères l'algorithme de SHELL-METZNER : 
15 
1010 ‘ DE 
1070 ‘ TRI BASIC (METHODE SHELL/METZNER) 91 
1030 Fé 
1040 H=N 21 
1050 H=INT{IH/2) : IF H=0 RETURN 3 
1080 FOR Izi T9 N-H 3 J=I 45 
1070 IF ESCJiéES(J+H)i THEN 1100 CD 
1080 Et=E${J)i 2: ES$StJ)i=E$iJ+H}i : ES(J+HisEs Es 
10959 J=J-H 3 IF 130 THEN 1070 ge 
1100 HEXT : GOTO 1030 Las 


en a substituant aux lignes 1000 à 1220 du program- 
me. | om om em ONE ENT 


ST I EE EEE 


G001A ; ROUTINE DE TRI SHELL-METZNER 
208: ; 
GA: : AUTEUR *: ROGER BUVAT 
20048 : COPYRIGHT "TRACE" ET L'AUTEUR 
20050 ;: 
GGGER 3 TRI EN ORDRE CROISSANT 
0007Q : DE CHAINES DE CARACTERES ALPHANUMERIQUES 
DODGE : EN TABLEAU A UNE SEULE DIMENSION 
DDAUID 3: ========2sssSss2SRzRE=RESSESSSRESSESSESE 
28100 ORG BFFBBH 
D@118 
00120 : ACQUISITION DES PARAMETRES 
PE ot Mon emnermn ri Je ne 
agi4a 
CD7F@A Guis50 CALL BA7FH 3: VARPTR DE E$(@3 DANS HL 
2h 20168 DÈC HL 
àE @81i7@ LD BE; CHL3 
ZE Dn1s8 DEC HL 
àE 2Ui950 LD Cr CHLD 
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25 a02za8 INC HE 


23 20:10 INC HL 
ES 20:20 PUSH HL 
110000  U230 LD DE: 2200 
0E 20249 DEC BC 
25 @U2S@ EXPLI INC HL 
27 20260 INC HL 
23 20270 INC HL 
7E 20280 LD A: CHL) 
B7 20290 DR A 
2806 20:00 JR Z; EXPL2 3 SI ELEMENT NON DEFINI 
13 02:10 INC DE 
QE 20:20 DEC BC 
78 20370 LD A:B 
Bi 02:40 OR E 
20F3 20:50 JR NZ, EXPLI * RETOUR DE BOUCLE 
E1 @USEG EXPLZ POP HL 
20z70 
G23ED : ROUTINE DE TRI 
DDETQ 3 
2042 
3 OU410 LD B; D 5 CN DANS DE) 
4E 20420 LD CE 3 H=N CH DANS BC) 
78 QB4TD TRII LD AB 
CBSF 20440 SRL A 
47 20450 LD B, A 
79 D04ED LD AC 
1F 20470 RRA 
4F G04S0 LD CA 5 H=INTCH/3) (CH DANS BC) 
ED 00490 DR B 
CE 20500 RET z 3 SI FIN DU TRI 
ES 20510 PUSH HL 
DDEi 20520 POP IX 
ES 20520 PUSH HL 5 SAUVE PTR DE TABLEAU 
23 20540 ADD HL, BC 
29 _ 20550 ADD HL; BC 
23 20560 ADD HL, BC 
= 20570 PUSH HL 
FDE1 20580 POP IY 
210000 22590 LD HL: 2000 ; I=0 
27 DUEUD TRIZ INC HL 3 I=l+1 
DS QE 10 PUSH DE 5 SAUVE N 
110700  Q0E:0 LD DE, 0003 
DD19 QUEZQ ADD IX; DE 
FDiS Q0E4D ADD IY, DE 
DDES QUES PUSH IX 5 SAUVE PTR DE E#(I) 
FDES QUEER PUSH IY 5 SAUVE PTR DE E$(I+H) 
ES QUE 70 PUSH HL 3 SAUVE I 
2 QUEED DEC HL 5 J-1=1-1 
D BUE9Q TRIZ EXX 
FDEEUZ 20700 LD H; CIY+02) 
FDEEUI  @U710 LD L: CIY+Di) 
DDSEU? @0720 LD D: CIX+02) 
DDSEUI  GU750 LD E; CIX+01) 
DD4E00  O2740 LD B: CIX+00) 
20750 
G0760 ; + EN CAS DE LONGUEUR VARIABLE DES ELEMENTS A TRIER 
20770 
FD4EDQ 02720 LD C: CIY+20) 
ES 20730 PUSH BC 
79 a0E0n LD AC 
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2082 


G8810 
GREz0 
DER 
D2E40 
GDE50 
BDEEG 
20570 
DDE8D 
U8E590 
20508 
28310 
20520 
209:0 
00340 
A0558 
29968 
G0370 
20358 
223930 
21000 
aigim 
Gi0:G 
Bia:u 
21040 
A1ia5Q 
D1RE60 
2ia7a 
21260 
21890 
giiau 
Gi11@ 
Biiza 
B11:9 
B114@ 
21152 
B11E0 
m1170 
Gi150 
21199 
Gi=:00 
Bi21@ 
Giz20 
Biz::0 
Diz40 
B1250 
Bizea 
21270 
QGiz6n 
Gi:99 
Bi:00 
@iz1m 
Diz20 
DiTzB 
G1:40 
Gi:50 


3 SUITE 


TRI4 


TRIS 


TRIE 


PERMUT 


28@08 TOTAL ERRORS 


DE LA ROUTINE DE TRI 


E 
NZ: $+5 
B: © 


NZ: PERMUT 
DE 


CIX+GE#),H 
CIX+B13,L 
DE 

CIY+02),D 
CIY+@1),E 
BC 

CIY+B0),ER 
CIX+@8),C 


HL: RC 
C;: TRIE 
DE; HL 
IX 


CE] 


LE 


ds us 


“us «an MU MN 480 Un 4n 


CL] 


ME un un 


us 


«tn ue 


us ss 


CL 


us 


LE] 


SAUVE ADRS DE E$cJ} 
SAUVE ADRS DE E$CJ+H) 


SI E$CJ) € E$CJ+H) 
SI E$(J) > E$cJ+H) 


# SI LONGUEUR VARIABLE 
RESTAURE I 

RESTAURE PTR DE E$CI+H) 
RESTAURE PTR DE Eg$cI) 
RESTAURE N 


I+H 
I+H-N 


RETOUR DE BOUCLE 
RESTAURE PTR DE TABLEAU 


SI I+H-N=ÿ 
RESTAURE ADRS DE E$CJ+H) 


* SI LONGUEUR VARIABLE 

* SI LONGUEUR VARIABLE 

# SI LONGUEUR VARIABLE 
JS 

POURSUITE DU CYCLE SHELL 


RESTAURE PTR DE E$CJ+H) 


RESTAURE PTR DE E$cJ) 


RETOUR ARRIERE (CMETZNER) 


D OT SR D CS D LA TR R 
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IL Y A UN TROY 
D'AH DANS VOTRE 
EHPLOÏ DU TEMPS, 
Vous H'exPuquez SE 
LA CoNHENT P : 


















Mrnuit=- l'heure du crimes ann à. 
mort..." Has 2e Crest'horribre...-..-2: 

Le Docteur aététassassiné. -....2 200024. 
Qui Ta tué7777. 

L'inspecteur est sur les lieux.Il va vous aider dans 
cette enquête......... 


En effet, vous aurez à trouver : Le criminel, l'en- 
droit du crime (car le corps a été brulé et trans- 
porté) ,et l'arme du crime. 


Ici, l'ordinateur choisit "“au.hasard" lui-même le 
criminel, le lieu et l'arme du crime. Puis, il donne 
3 faits réels après vous avoir donné la liste des 
possibilités. 


Maintenant, à vous de jouer... 

Pour commencer, faire SHFT =. 

Vous voyez apparaitre : RND = 

Vous devez rentrer un nombre entre 0 et 1, par 
exemple : RND = 0.270568 


Vous devez rentrer un nombre 


Après un petit moment le programme affiche la liste 
des suspects, puis celle des armes, puis celle des 
lieux. 

Puis, les 3 indices.relatifs aux suspects, aux 
armes et aux lieux. 

Et enfin commence le jeu. Vous voyez apparaitre sur 
votre l'écran 


ORDRE : 
Vous avez le choix entre 


pour voir la liste des suspects 


S 
a pour voir la liste des armes 


L pour voir la liste des lieux 
IN pour avoir un indice (qui coûte 0,5 point sur 10 au 
au départ). 

L'indice est pris au hasard entre les suspects, les 
armes et les lieux. Un indice peut donc se répéter 
(il faut avoir de la chance...) Mais l'information 
est toujours vraie. 

+SOLU pour pouvoir rentrer son hypothèse. Si elle 
est fausse, celle-ci est démentie ; mais si elle 
est vraie, alors elle est confirmée. 

Supposons que vous tapiez 


ORDRE : IN. 


Vous obtiendrez alors par exemple 

"La cuisine était fermée... au moment du crime". 
(Ceci est un exemple de ce qui est choisi au hasard 
vous pouvez aussi voir affiché un autre texte). 
Puis s'affiche à nouveau ORDRE : 

Maintenant, tapons 


ORDRE : IN. 
Nous obtiendrons par exemple "Il n'y avait pas de 
COLT... au moment du crime". 
Faisons une nouvelle demande : 

ORDRE : IN. 


pas de Chance... nous revoyons s'afficher : "Il n'y 
avait pas de COLT au moment du crime". 


Essayons à nouveau 
ORDRE : IN. 


"La cuisine était fermée... au moment du crime:.." 
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Continuez à lui demander des indices jusqu'à ce que 
vous pensiez connaitre les trois vérités. 


Mais attention: chaque fois que vous demandez un 
indice, le programme va vous retirer 0.5 point sur 
votre score total: on arrive vite à un mauvais score! 


Vous pouvez entrer : 


ORDRE : SOLU 
Le programme vous demande : 
CRIMINEL ? 


Vous devez rentrer le nom du criminel auquel vous 
pensez, par exemple : 


CRIMINEL ? LEBLANC 


Ensuite, vous voyez apparaitre : 
ARME ? 


Vous devez rentrer l'arme du crime à laquelle 
vous pensez : 


ARME ? COUTEAU 


De même pour les lieux : 


LIEU ? VERANDA 


Alors, si ce ne sont pas les trois vérités, l'O.P. 
vous retire 3 points sur votre score. 


Si par contre, vous avez trouvé par exemple le bon 
criminel, il ne vous retire que deux points sur 
votre score. 


Et si par exemple, vous’ avez trouvé le criminel, et 
le lieu, il ne vous retire qu'un point sur votre 
score. 


Enfin si vous avez trouvé le criminel, le lieu.et 
l'arme du crime, alors (et seulement alors), il ne 
vous retire rien, mais vous affiche votre score. 
On arrive vite au score négatif, n'est-ce pas? 


Lorsque vous faite une erreur (ou deux), mais que 
vous avez trouvé, par exemple, l'arme du crime, le 
programme ne vous demande à la prochaine entrée de 


SOLU_ que les rubriques où vous avez fait des erreurs: 


si vous l'avez trouvée, il ne vous demandera plus 
l'arme du crime. 


NOTATION : 
10 : tricheur... 


9,5 : où avez-vous volé votre trèfle à quatre 
feuilles ? ! 
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9 : très bien 

8,5 : bien 

8 : pas mal 

4,9 : Ça peut aller 

T : moyen 

6,5 : c'est juste 

6 : attention, ça a craqué 

5,5 :ça y est, Ça a craqué 

5 : presque nul 

4,5 : nul 

ni : moins que nul 

351àt1 : attention, on va tomber 

oOà-5 : Ouh !.... Ouh !... ailez vous 
cacher... 


moins de - 5 : Ça y est : le pocket a honte d'avoir 


un maître aussi nul zu CLUEDO : il 


Après cette description du jeu qui, on peut le dire, 
est assez différent du "vrai" CLUEDO, il ne vous 
reste plus maintenant qu'à rentrer le programme. 

Il es long et fastidieux à copier, et attention : 
tapez le exactement comme il est imprimé ici. 


#4: "R'AZATT: Ê=A 
ARR: A=A—INT 
A: H=C+INT €D 
A::RETURH 

S:"S"HEEP 1: 
PAUSE "YGICI 

LES SUSPECT 
S :":FÜR E=1 
STÜ 13:PRINT 
"M, MiASCED: 


HEXT E: 
RETURH 

6: "A"EEEP 1: 
FAUSE "YGICI 


LEZ ARMES : 
":FÜR E=230T0 
2S:PRINT "LE 

"sASCE: 
NEXT E: 
RETLRH 

f: "L'BEEP 1: 
PAUSE "YGICI 

LES LIEUX : 
":FÜR E=26T0 
ZI: PRINT "LA 
: "sASCE): 
HEXT E: 
RETURN 

1Ü: "="H=jn: 
IHPUT "RNI=" 

SAS IH="":IKS= 

Hs] g=n 

20: C=15:D=5: 
GOÜSUE "R":p# 
=A#CH):C=20: 
D=6: GOSUB "Rp 

Ms FH=ASCHNiiC 
=26: T=é: 
GOSUE "R':GS 
=ASLH 2 

SO: GOÜSUE “Sn: 
GÜSUE "“Â": 
GOÜSUE "L. 

AC:BEEP 3:PALISE 

"YOUS SAVEZ 
QUE. -":0=1 
53 D=S: GÜSUR 
“p 

SOIF A$CHI=ES 


GÜSLE Upuz 





GÜTÜ Sû 
OSEEEF S:FRINT 
"M, “SSSCHis 
" N°8 FAS TU 
E...":PAUSE 
“LE DOCTEUR 
ÉENGERS=S 
S0:C=20: D=é: 
GÜSLIE "“R 
TOLIF BSCHd=F# 
GÜSUE “pie 
GÜTO T0 
TA: BEEF 2:PAUSE 
"QUOGH HE L* 
À PAS TUE... 
MIPRIHT "AVE 
CO UH "SASCH) 


3 «ss 
SU: C=2E: Ie: 
GOSUE "E 


SOIF ASCHI=GE 
CÜSUE "R': 


GÜTG 90 
SS:BEEF 2: PAUSE 
HET SUÉTEO NT 


EST F£S MORT 
“aPRINT "TDAH 
S LA iAS$CNà 
UE 
100:C=15S:1=ié: 
GOTO 150 
1102 "IN. "H=H-, 5: 
GOSSES 
115:IF NY1STHEH 
135 
1205IF S$CHi=E+ 
GÜSUE "pR': 
GÜTOS 115 
1SO:EBEEP 1:PRIHT 
"M. "sASCHI: 
“ ETAIT Mél 
DE": GOTG 145 
135:1F N>25THEH 
{40 : 
136: IF AFCNI=FÉ 
GÜSUE LL FE LL : 
GÜTO 115 
1ZT:EEEF 1:PALSE 
NIL H°Y GVAI 
T PÉS..."5 













































PRINT "IE ‘ 
RE su, ns 








GTS 145 
140: IF ASCHIZGE 
GÜSUE "RM: 






GÜTO 115 
141:BEEP 1:PRINT 
MLA "SAFCNDT 
“ ETAIT FERM 
EE 
145: PAUSE "AU MO 
"MENT DU CRIM 240 
E...":RETURN 
150:M=0: INPUT "QG  2SO:BEEP 1:INPUT 










IF LS$=CSSOT0 
2 er 


£-+ 





















RDRE :"5J$: "LIEU 2"3L$: 
GOÜSUE J$ IF G$-L$BEEP 
155:G0T0 150 1:PRINT "LA 
190: "SOLU."IF I “:Gfi" EST E 
=ES$THEN 215 EN..." 
195:BEEP 1:INPUT PRINT “L°END 
“CRIMINEL 2" RGIT DU CRIM 
311$ E. 
200:IF B$=I$BEEP 255:MeN+1tIF G$= 
1EPRINT MM. LéM=h-itlE M 
"3B$i" EST E =OPRINT “SC 
IEN L'AS"s RE="3H: END 
PRINT "-SASS 260: H=H-M:BEEP M 
IN DU DC LEN :PAUSE "CE N 
GIR.":GGTO 2 E SONT PAS. 
15 "PRINT "LE 
210: M=M+1 S z VERITES. 
21S1IF K$=F#THEN 9: RETURN 





Organisation de la mémoire : 


: Arme (hypothèse du joueur) 
: Lieu (hypothèse du joueur) 
: points retirés au score 

: le RND calculé à partir de A 

Pour jouer, il faut, après avoir rentré le programme, 
rentrer les datas correspondantes 

En voici la liste : 


A$£15.)=YIOLET 

A#C16.3=LEBLANC 
ACIT. 
AC1S, 


A#C23. 1 =POISON 
AZ. )=MARTEAU 
ÀA$C25.  =CGLT 
A$C26. )=BIELIG. 
A#CZT. )=CUISIHE 
AFCZS. )=CHAMERE 
À#€29. 3:=VERANDÉ 
A$C20, }=CAYE 
A$CZ1. 1 =COUR 


=0LIYE 
=RÜSE 
>=MOUTARD 
A#C20. >=CAUTEAU 
A${21.)=LASSN 


A$É22,)=RASGIR 


A#‘ 19. 





LA TABLE DE JEU 


Il s'agit d'un petit programme qui permet de mieux 
jouer au CLUEDO. Pour ce faire, vous devez utiliser 
votre imprimante. 

Celle-ci imprime une table de jeu pour que vous 
nayez plus qu'à cocher les suspects (armes ou lieux) 
que vous innocentez.-. 

Après avoir rentré le programme, allumez votre im- 
primante et faites un mode RUN, Run. 


A : le nombre entre 0 et 1 

A $ (15 - 31) : suspects, armes, lieux 

B : le criminel 

GE, : borne inferieure, et borne supérieure 
E : boucles FOR... NEKT 

F : l'arme 

G : le lieu 

H : le score 

I : le criminel (hypothèse du joueur) 
J : Ordre 

K 

L 

M 

N 


2T=PRINT “+ POI . 
SEM E— —+! 
SPRINT “+ MA 
RTEAU +- —+ 
MIPRINT “+ C 
GET —— 
4m 
PRINT “+--—— 
REF 
SPRINT "+ BI 
RACE + 
“SPRINT “+ C 
ÉESINE Fe — 
PRINT "+ HG = 
UTSRD + + 2S:PRINT "+ CHà 
FIPRINT “+ EEE 
—=—ARMES——— SPRINT "+ VE 
RANER +— -+ 
PRINT “+ COU "3PRINT "+ C 
Er 7 AVE RE 
PR CHR LE 
5S ne. SO: PRINT "+ CGU 
"EPRINT “+ R FR Ha 
ASGIR +- —|3SS:PRINT "+ 


+" 


CUISINE + $ 
CHAMBRE LE 


YERANDA 
CAVE 
COUR 


! 
! 
il 
1 
! 
! 
! 
! 
| 
| 
| 
! 
| 
4 





I1 peut être amusant de faire le montage suivant : 
- copier le programme de table de jeu 
- rajouter 
4O : INPUT #"CLUEDO", A $ (15) 
50 : CHAIN "CLUEDO", "=" 
— enregistrer le programme 


- copier, puis enregister les datas en faisant 
PRINT # "CLUEDO"; A$(15) 


— Copier, puis enregistrer le programme en faisant : 
CSAUE " CLUEDO" 


Lorsque vous aurez envie de jouer, vous n'aurez plus 
qu'à faire : LLOAD "nom du programme de table de 
jeu". 

Ensuite, allumez l'imprimente et faites RUN. Allez 
boire une tasse de café et revenez 2 minuites après 
vous aurez une table de jeu imprimée, et vous serez 
prêt à jouer. 


Si vous ne possedez pas d'imprimante, photocopiez 


La table de jeu donnée ici et découpez-là sélon vos 
besoins. 


Une dernière chose : ne jouez pas à ce jeu dans le 
métro, vous risqueriez de rater votre station. 

Si, par hasard, il y a une interruption de jeu (où 
si vous avez appuyé sur le bouton OFF) ne tuez pas 
quelqu'un... rallumez votre ordinateur et faite : 
GOTO 150 (en effet, il est désagréable d'interrom- 
pre une partie de CLUEDO, surtout si la chance vous 
sourit...) 


Maintenant, je vous laisse en espérant que vous vous 
détendrez tranquillement : Bonne chance ! 


= Ï —-Jean-David BLANC 


Analyse du programme 


ligne 4 : formule classique du RND 
ligne 5 : liste des suspects 
ligne 6 : liste des armes 
ligne 7 : liste des lieux 
ligne 10 : début du jeu initialisation du jeu 
ligne 20 : choix des suspects, armes, lieux 
ligne 30 : énumération des suspects, armes, 
lieux 
ligne 40-100 : premiers indices "gratuits" 
ligne 110-150 : indices payants 
ligne 150 : ordre 
ligne 190-255 : solution 
: affichage du score 
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Ex 
En 
Ex 
Fu] 
çæ 
©! 
© 
Éb 


utilitaire. 


Ce programme sans prétention a pour but d'aider les 
bricoleurs du dimanche à calchler le nombre de rou- 
leaux de papier peint ou le métrage de tissu nécessai- 
res pour tapisser une pièce. 


Les .données sont les suivantes : 


nombre de murs à recouvrir (cas le plus courant 4) 
hauteur entre plafond et plinthe (ex.:2,35 m) 
périmètre correspondant aux murs à recouvrir (ex.: 
20 m) 

P : somme des largeurs des portes et portes-fenêtres 

(ex-: 2 portes = 1,60 m) 
: somme des largeurs des fenêtres (ex.: 2 fenêtres = 
2,40 m) 

Q : hauteur maximale au-dessus des portes, fenêtres 
et portes-fenêtres (ex.: 0,50 m correspondant aux 
portes) 

E : hauteur maximale au-dessous des fenêtres (ex.:1 m) 

W : largeur du rouleau de papier peint (ex.: 0,55 m) 

ou du tissu (ex.: 2,70 m) 

: longueur du rouleau de papier peint (ex.: 10,50 m) 

: hauteur du raccord éventuel (ex.: 0,20.m) 

: largeur de la lisière du tissu (ex.: 0,02 m) 


M 
H 
T 


<vtr 


La méthode de calcul est relativement simple et diffère 
légèrement suivant que l'on pose du papier, du tissu en 
grande largeur ou du tissu en petite largeur. 


° Dans le cas du papier peint on calcule successivement 
les valeurs suivantes : 


A : nombre maximal de "grands lés" correspondant à la 
hauteur de la pièce et sans tenir compte des portes, ni 
des fenêtres, ni des portes-fenêtres 

B : nombre minimal de "grands lés" en tenant compte 
des portes, des fenêtres et des portes-fenêtres 

C : nombre de lés "de dessus", correspondant à la 
hauteur Q 
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Ün programme pour tapisser 
| 


D : nombre de lés "de dessous", correspondant à la 
hauteur E 

N : nombre de "grands lés'" dans un rouleau de papier 
peint 

X : nombre maximal de rouleaux 

Y. : nombre minimal de rouleaux. 


Après pose des B "grands lés", sur les Y rouleaux il 
reste S mètres dans lesquels on peut découper G "lés 

de dessus" ; si G est inférieur au nombre requis C,-11 
faut un rouleau de plus et les calculs sont terminés ; 
dans le cas contraire, on essaie de découper G'"lés de 
dessous" dans les $S mètres restant ; si G est inférieur 
au nombre D, il faut un rouleau supplémentaire, On cal- 
cule ainsi Y qui en aucun cas ne peut être supérieur à 
X. 

° Dans le cas du tissu en petite largeur on calcule 
également A et B mais en tenant compte des "“lisières" 
éventuelles, puis C et D. Le métrage maximal X ne 

tient pas compte des portes, fenêtres et portes- 
fenêtres ; le métrage minimal est calculé en essayant 
d'optimiser les découpes. 


° Le tissu en grande largeur peut être posé vertica- 
lement (par exemple s'il y a des motifs...) ; on est 
alors ramené au cas précédent. S'il est posé horizon- 
talement, les calculs sont encore plus simples ; le 
métrage maximal ne tient compte que du périmètre et 

du nombre de panneaux ; le métrage minimal n'a de sens 
que si la largeur cumulée des portes, fenêtres et 
portes-fenêtres est inférieure à la largeur du tissu. 


J'ai oublié,... toutes les valeurs numériques sont en 
mètres. Et maintenant le plus dur reste à faire, col- 
ler le papier ou poser le tissu ... BON COURAGE ! 


———————————  È  Ï A]jain GANDOSSI 


PIRCE 1 








Listing 


FEH *TAPISS 
REM -#AUTEURS 
SÉLAINSETAIE 
RGMEGANDOSS 
I 


ZIREM #CÜPYRIG 
HT: TRACE*ET* 
LES"AUTEURS 

4: PAUSE "DiDER 
UT" 


S:PAUSE "NE NGU 
VEL Essal" 
9:END 
100:"I"PAUSE "PI 


FAUSE "DIMEN 
SIONS EN MET 
RES..." 

105: INPUT. "NB ML 
RS?" M 

110: INPUT "HAUT 
HA FLAF-PLI 
NTHE?"3H 

115: INPUT "PERIM 
ETRE?"IT 

20: INPUT "SOMME 
LARG PORT/F 
-FEN?S:e 

125: INPUT "SOMME 


1: 
ns 
£t 





© 20,00 2 ———————————+> 





Pepier L= 
Tissu _1 W = 
ZLissu2 W= 


© Ta 2,00 mm à 


Papier L = 


LARG FENETR 
ES2V3F 
130:IF T€=P+F 
GOSUE 800: 
GGTO 120 
140: INPUT "HAUT 
MAX DESSUS P 
2F2"30 
452 INPUT "HAUT 
MAX DESSOUS 
FEN?SE 
150:IF He=û+E 
GÜSUE 800: 
GÜTO 140 
160: PAUSE "QUE P 
DSEZ-VOUS 7": 
INPUT “PAPIE 
RCLI2TIESUEZ 
32956 
16S:IF (Gé1)+CG> 
2)THEN 160 
170:G0T0 E2+E2*6 
175: "N"INPUT “NO 
UVEL ESSAI?“ 
5GS:IF G$=UN 
"PRINT "AU R 
EVOIR. "2 
E 
180:IF G$="0" 
GÜTO. 190 
195:50T0 “N" 
190: INPUT "MEME 
PIECE?" G$: 


F=2,40 m 


1 fenêtre 


10,50 m W=0,55m R=0,10 m 
7,40 m V=0,02m R=0,20 m 
2,70 m V=0,02 m R=0 

3 murs 


P = 0,80 m 


1 Porte 


11,00 m W=0 


IF G$="0" 
GÔÜTO 160 
1SS:IF G#="N" 
GOTG EZ 
196:60T0 190 
200: PAUSE "PAPIE 
R PEINT..." 
205: INFUT “LONG 
ROULEAUT SL 
210: INPUT "LARG 
ROULEAU? "5 
215: INPUT CHAUTE. 
RACCORDT":R 
IF ROLGOSUB 
200:G0T0 215 
Z20:G0SUS TOU:N= 
IHT €L/CH+R) 
DIK=A-HIIF X 
<DINT XLET K 
=i+INT x: 
225:Y=B/HIIF Y<> 
INT YLET Y=1 
+INT 
ES=YL-E+CH+R) 
IG=INT <5/<0 
+R)5:1F GC 
GOT 245. 
225:5=5-C+CQ+Ry: 
G=INT {S-(E+ 
FDD:IF G<D 
THEN 245 
240: S=S-D#<E+R): 


23 


F = 2,00 m 
1 Fenêtre 


GOTG 250 
245: Y=Y+t 
259: de YFALET Y= 


255: PRINT "NB RÜ 
ULEAUX: 
260: PRINT {USING 
"DH" S "NAK=" 
SMIPRINT "MI 
N="SY:GOTO 

HN 


200: PAUS SE "TISEU 
308: Pur "LARG 
TISSU? IH 
Zi: INPUT "LARG 
LISIERE?"3V 
215:INPLT "HAUT 
RACCÜRD?":R 
Z20:1F WH=-.1:H 
GGTO 500 
409: PAUSE SFETIT 
E LARGEUR! ": 
PAUSE "FAIRE 
DES COUTURE 
51 LI 
405: H=4t-2Y: GOSUE 
: TOC: XEAEÉCHIR 
+.1)+.1M 
410: Y=EFrCH+R+. 1) 
* +.1M+CxC0+R+ 
.1)+DACE+R+, 





1)2IF Y>RLET 
V=X 

#1ST PRINT: “METRA 
GE: * 


420: HU USING 
s'HGxr"S 42 

PRINT- "HIN=" 
5 Y:GOTO -*N" 

[S00: PAUSE "GRAND 
E LARGEUR" 

350$: INPUT “PÔSE 
HÔRIZCH)-VER 
TÉVS TMS GSIIF 
G$="Y"GOTE 4 


05 5 

SI: IF G£="H" 
GÜTI S20 

215 G0T0G 505 

S20:#=T+,1M3IF P 
+F5H-,.ILET Y 
4 


S2S:Y=T-P-F+, 1M4+ 
E+G:GOTO ‘415 
FO: A=T-WIIE > 
IHT ALET A=1 
+INT à 
TOS:E=CT-P-F)-y: 
IF ESINT B 
LET B=i+INT 
E 
FIDIC=CP+E 8 LE 


CS3INT CLET 
CEi+INT C 
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l(E00: PAUSE "ERREL 


MIN= 8 


IS: DSF-WIIF D<> 
INT DLET De! 
+IHT D 

T20:RETURH 


RI"s RETURN 


Pxempies 


HE ROULEAUX: 
MAX= 10 


METRAGE: 
MAX=40, 15 
MIN=2Z7.2Z 


METRAGE: 
MAk=ZO, 4 
HIN=17.9 


METRÈGE: 
Méx=20. 
HIN=19,85 
NE ROULEAU: 
MAX= 6. 
MIiH= 5 


BU REVOIR... 


ET ER EEE POQUETTE 


Eu jeu 
Es s 
. Jeu de bataille 
= navale pour 


© Sharp PC1211 
















2 — 
PR nn CE, 
a mm 
Le jeu se joue sur un "damier" dont les cases sont PHASES DU JEU 
numérotées de 1 à 100. 
Le Joueur et la Machine possèdent chacun au départ 
* un Cuirassé (3 cases) - Ligne 100 (Shift N) : Remise à zéro générale et 
- deux Torpilleurs (2 cases) commentaires 
- trois Sous-Marins (1 case) - Ligne 200 : Choix par la Machine des po- 


sitions initiales de ses navires. Des valeurs sont 
choisies au hasard, mais dans les limites du "da- 
mier" et avec des numéros "adjacents" pour le cui- 
rassé et les torpilleurs. 

Choix du premier joueur au hasard. 

- Ligne 300 (Shift M) : La machine joue ("à moi"). 
Au départ elle choisit une case au hasard et pose 
une- question au joueur 
© si la réponse est O (à l'eau!), elle lui passe 


Les navires peuvent être placés bord à bord, le long 
des côtés du damier ou peuvent se toucher par les 
coins ; par contre les éléments les constituant doi- 
vent être alignés ou placés dans des directions per- 
pendiculaires (voir figure). ° 


Le programme ne mémorise que les éléments correspon- la main 2 e 

dant au jeu de la machine, le joueur devant tenir à ° si la réponse est 1 (touché!) ou 2 (coulé), elle 

jour ses propres tableaux. mémorise la position, déplace le pointeur de pile 

A(28), mémorise le coup en A(29) et passe la main; 

, si A(28) atteint la valeur 20 elle a gagné. 

Les mémoires À B -..J contiennent les numéros des dix Le coup suivant elle explore le jeu en utilisant 

cases correspondant aux six navires de la Machine ; un algorithme simple en vérifiant que la case n'a 

chaque fois que l'un d'entre eux est "touché", la va- pas déjà été touchée ou coulée. 

leur 1000 est ajoutée à la mémoire correspondante ; Si la réponse est 1, elle explore systématiquement 

quand le navire est "coulé", elle est remise à zéro. les cases adjacentes de A(29) à chaque "à l'eau" 


suivant ; si cette recherche ne donne rien, elle 
revient au point précédent A(30) et fait la même 


Le nombre de pièces de la Machine touchées ou coulées chose en évitant les positions déjà touchées. 
est rangé en A(27). Nr Si la réponse est 2, elle reprend sa recherche à 
La Machine range dans les mémoires K L ...T les posi- partir du point précédent A(30). 


tions des pièces de l'adversaire (le Joueur) qu'elle 
a trouvé, c'est-à-dire à chaque annonce d'un "touché" 
ou "coulé". Elle utilise les mémoires A(28) à A(31) 
pour ranger divers éléments lui permettant d'optimi- 
ser son jeu : 


- Ligne 400 (Shift M) : Le Joueur joue ("à vous"). 

La machine demande un numéro de case et vérifie qu'il 
ne sort pas des limites ; elle effectue une comparai- 
son avec ses positions mémorisées en À B ...J et 
répond en conséquence ; elle pose des "drapeaux" 

dans le cas où le navire a été "touché" où "coulé" et 





- A(28) : Pointeur de la liste des pièces de l'adver- mémorise en A(27) le nombre de pièces dans ce cas. 
saire touchées ou’coulées Si A(27) est égal à 10, elle a perdu. 

- A(29) : Mémorisation de la dernière position jouée 

- A(30) : Mémorisation d'une position antérieure SOUS-PROGRAMMES UTILISES 

- A(31) : Constante utilisée pour l'exploration du 
damier 


- Ligne 2 : donne une valeur aléatoire X comprise 
entre 1 et 100. - 
- Ligne 3 : recoit une position X 
Les mémoires U V ...Z sont utilisées pour ranger donne une position adjacente Y=X+UV avec 
diverses variables de travail. U= +1 ou -1 et V= 1 ou 10 
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PIECES 


1 CUIRASSE 
= 3CASES 


2 TORPILLEURS 
2. CASES 


3SOUS-MARINS 
= 1 CASE 


EXEMPLES 
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LISTIN 


1:REM “ESTNAV 
COPYRIGHT : 
À. GANDGSSI 
ET TRACE 

Z:GOSUE 9:%x= 
INT CE2W+1): 
RETURH 

3:GO0SUB 3:U=-3 
+2#INT <Z+i 
D'GOSUE 9:y= 
INT <2W+15:% 
ZINT €Y°3, 42 
2 Y=U: GOSUE 
20:1IF U=i 
GOTO 3 

4: Y=Y+%:RETURN 

T0: FOR Ya=i 
TO V-1:1F àc 
Yi=4CYLET U 
=U+1 

S:NEXT Y: 
RETURN 

3: ENT: = 
WiW=H-INT bi 
RETURN 

20: U=1: IF Y=-1 
IF X-10#INT 
Cx/100dz1 
RETURN 

Z1:IF Y=1IF K/1 
Q=INT €x/“10ù 
RETURH 

2251F Y+X<=0 
RETURH 

23:1F Y+K)EZ 
RETURN 

24: U=0: RETURN 

30: 4=0: B=0: C=0 

2S:BEEP 3: PAUSE 
"COULE!": 
RETURH 

40: *=830)+Ac31 
3:1F X**EZLET 
K=X-E2 

4114 c20)=x: 
RETURH 

SO: IF V=SLET Y= 


Ligne 7 : 
des précédentes 


1:AC29)=A(30 
5: RETURN 
S1:Y=C10"4)/10: 
IF YHIQLET Ÿ 
=-Y/E2 
Sary=V+1: GOSUR 
20:1F Usi 
GÜTO 50 
53: K=H+4: RETURN 
100: "N'CLEAR : 
BEEP 5: INPUT 
UNE SYP?"5 Us 
W=SES SIN W 
PRINT "NAVIR 
ES:1#3 242 3 
+1 


FEEF Z:PAUSE 
"JE CHOISIS 
GOSUE 2:Â=x: 
GOSUE 3:E=Y 
SiX=B: GOSUB 3: 
C=Y:1IF C=Â 
GOT 215 
FOR Z=iTO 2: 
BEEP 1 
SGOSUE 2:4Y=27 
+2: Ac Y)=x: 
GOSUE 7:IF U 
<?0G0T0 225 
GÜSUB 3:y=27 
+31ACV)=Y: 
GOSUE 7:IF U 
<)06G0TG 230 
ZS:NEXT Z 
FOR Z=8T0 10 
:BEEF 1 
GOSUE 214627) 
=#1 y=2: GÜSUR 
T°IF (KO 
GÜTO 245 
NEKT Z:8€28) 
=11:COÜSUB 2: 
ACIOD=X: 4631 
2=53:4v=1 
2SS:BEEP SPRINT 
“"JS8I FINI E 
“ VOUS 
260: PAUSE "CHOIX 
JOUEUR 1": 
GÜSUE Z:IF X 


?S0GÛTG 400 

300: "M'BEEP 1: 
PAUSE "9 MOI 
; 


301:1F A€233=0 
GÜSUE 40: 
GOTG 305 

302:*=4ç293: 
GOSUB 50 

SOS: LEO: FOR Z=11 
TO A2: IF 
B=ACZILET U= 
1 


ZOG:HEXT Z:IF U= 
1G0TO 291 
3OS:HEEF 1:PAUSE 
“JE JOUE EN 
“SX: INPUT "y 
TRE REPONSE 
{0/1/227"5U: 
IF (LKO)+{Ux 
236076 Z05 

310:IF U=OGÜTD 4 
00 


-..": END 
320: AC283=4(28)+ 

1:V=1:1F LEZ 

LET A(Z9i= 





325: 4€297=4 

400: "V"BEEP 1: 
PAUSE “A YOU 
S1": INPUT "N 
O CASE?"35 x: 
IF CK<=0)+Cx 
>E2)G0T0 400 

SOS: U=0:FOR 2=1 
TG 10:IF X<> 
ACZ)GÔÜTO 435 

410: U=1:1F {2=8) 
+{2=3)+(7=10 
2GÜSUB. 35:AC 
Z)=0:GÜTO 43 
5 


41S2IF ÉZ=d)#(E} 
EZ2+(2=52%(D 


teste si la position A(V) est différente 


Ligne 9 : donne une variable aléatoire W£ 1 (ini- 
tiaïisation à la ligne 100) 
Ligne 20 : teste si une valeur ne sort pas du 


"cadre" 
Ligne 30 : 


de la machine et message 
Ligne 35 : imprime un message 


Ligne 10 : 


dente à chaque appel 
Ligne 50 : recherche des positions adjacentes de X. 


remise à zéro des positions du cuirassé 


donne une valeur X différente de la précé- 


E3)GOSUB 35 
sD=0:E=0: 
GOTG 435 
A20:IF Z=6)+#CG> 
EZD+C2=72%4CF 
2E33GCOSUB 35 
*F=0: G=0: 
GOTO 435 
A2SsIF (2=1)#CB} 
EZ)#(CHE33+< 
Z=2)#CAREZDX 
CES) +C2=3) 
HCAPESDKCRSE 
33GÜSUR 30: 
GOTO 425 
4SC:EBEEP 2: PAUSE 
"TOUCHE ! "24€ 
Zi=AiZI+Es 
4ZS:MNEXT £tIF Us 
OBEEP ji: 
PAUSE "À LE 
AUL":GOTO 30 
ü 


440: ACZTI=AC27)+ 
1IF ACZTI=I 
OBEEF 5: 
PRINT "J'AI 
PERDU... 3 
END 

450: G0TO 300 


SSD ee 


HAVIRES: 143 2%? 
3*1 

JE CHOISIS 

J'AI FINI ET YGU 
s? 


CHOIX JOUEUR 1 
A VOUS! 
37. 


À L'EAU! 
À MOI! 
JE JOUE EN 92. 


À VOUS! 


56. 
À L'EAU! 
À MOI! 
JE JÔUE EN 45. 


COMMENTATRES 


À ‘VOUS! 
COULE ! 

à MOI! 

JE JOUE EN 
À VOUS! 


À L'EAU! 
À MOI! 


JE JOUE EN 55 


à VOUS! 
TOUCHE ! 

A MGI! 

JE JOUE EN 
A VOUS! 


COULE ! 
À MOI! 


JE JOUE EN 3 
“A VOUS! 


À L'EAU! 
À MOI! 


JE JOUE EN 3 


À VOUS! 
À vous! 
À VOUS! 


TOUCHE ! 
À MOI! 


JE JOUE EH 5 


à VüUS! 
COULE ! 

à MOI! 

JE JOUE EN 
À YOUS! 


4 L'EAU 





À MOI! 
JE JOUE EN 


À YOUS! 

À L'EAU! 

À MOI! 

JE JOUE EN 
À YOUS! 

À L'EAU! 

À MOI! 

JE JOUE EN 6 
À YOUSI 
COULE ! 

8 MOI! 

JE JOUE EN 
À YOUS! 

À L'EAU! 

À MOI! 

JE JOUE EN < 
À YOUS! 

À L'EAU! 

À MOI! 

JE JOUE EN 5 
JE JOUE EN 
JE JOUE EN 5 
À YOUS! 
TOUCHE ! 

À MOI! 

JE JOUE EN 

À VOUS! 

À L'EAU! 

À MOI! 

JE JOUE EN 


J'AI GAGNE!... 


- Pour un fonctionnement correct du programme, suppri- 
mer la ligne 1 (il faut 5 mémoires variables en plus 
des mémoires fixes). 
- L'exemple ci-après a été obtenu en remplacant les 
PAUSE par des PRINT. 
- Les temps de réponse de la machine sont parfois un 
peu longs (surtout quand elle choisit ses positions 

ou prépare son coup), mais ce n'est qu'un SHARP PC1211. 


nn Peer he An eGANDOSST 





Abonnez-vous 


TRACE 


a 
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le DOS de-AàZ 
hain 
Chnon 


Clear 





Le Modèle 1 possède plusieurs Systèmes d'Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffé- 
rents systèmes ont beaucoup ce points communs, 
particulièrement ceux de 12 "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui s'inspirent tous, à 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 
forme de fiches pratiques, les commandes de ces 
différents DOS, classées alphabétiquement. Ces 
fiches ne prétendent pas remplacer les manuels 
originaux qu'il est impératif de posséder (il 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pases—.). 





Leur but est de fournir à l'utilisateur une 
information rapide d'accès (classemént alphabétique), 
pratique (exemples d'utilisation), comparative 
(différents DOS) et dans une langue qu'il est censé 
connaître (français)... 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
zpports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


Dans la description des-commndes, les mots en 
caractères majuscules désignent les commandes 
proprement dites, ainsi que les mots-clés associés. 
Les mots en caractères minuscules ne font pas partie 
des commandes mais en représentent 12 forme. Au 
moment de l'exécution, il faudra ieur substituer 
le ou les mots appropriés. Parmi ceux-ci, nous 
“rouverons par exemple : "nomfich", qui désigne 
un nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu à cet endroit. 
B=ns <ous les cas, un coup d'oeil sur les exemples 
Sms devrait lever toute ambiguité. 

2=, 2 faut signaler que le NEWDOS80 emploie 
Es tl=r-mmmt 12-virgule ou l'espace comme 
=r=tee dns l=s commndes. 


CHAIN-CHNON-CLEAR 





CHAIN nomfich id 


Commande NEWDOS 80 uniquement. Voir aussi : DO 


But : exécuter automatiquement une suite d'ordres 
décrits dans un fichier (nomfich) appelé "fichier 
de chainage. Le mot "DO" (faire, en anglais), peut 
également être employé. Optionnellement, il est pos- 
sible de lancer l'exécution à un endroit précis du 
fichier de chainage, repéré par un identificateur 
(paramètre id), constitué de 1 à 31 caractères. 
Cela permet un gain de place appréciable (plusieurs 
fichiers de commande dans un seul fichier disque). 
En l'absence de paramètre "id", l'exécution commen* 
ce au début du fichier. 

Le nom du fichier de chainage possède implicitement 
l'extension "JCL'"' et, dans. ce cas, il n'est pas né- 
cessaire de la mentionner dans la commande CHAIN. 
Le cas échéant, l'extension doit être précisée. 


Le fichier de chainage peut être créé de diffé- 
rentes façons : sous BASIC, par l'éditeur de tex- 
tes SCRIPSIT ou PENCIL, ou bien encore par le pro- 
gramme utilitaire CHAINBLD/BAS fourni avec le sys- 
tème NEWDOS 80. 


Facultativement, ce fichier peut contenir 6 "codes 
de contrôle" différents, repérés par la suite de 
caractères "/./" suivie d'un chiffre de 0 à 5, ou 
par un octet 80H à 85H, et qui ont la signification 
suivante 


/./0 : indique le nom d'un identificateur de section 
que l'on pourra invoquer au moment de la commande 
CHAIN. 


/./1 : affichage d'un message avec attente de la 
frappe du caractère ENTER. 


/./2 : 1e texte qui suit est sauté (sans affichage). 
Cela permet de placer des commentaires dans le 
fichier de chainage, sans que ceux-ci soient affic- 
hés. 

/./3 : affichage d'un message (comme /./1) mais 
sans attente de ENTER. 


/-/4 : branchement à l'identificateur de section 
donne à la suite du code de contrôle. 


/.1/5 : équivaut à la commande CHNON (voir plus loin) 
Le caractère suivant est obligatoirement : Y, N ou: 
D. 


Exemple de fichier de chainage sauvé sous le nom 
MFICHAIN/JCL" : 

/-/1 DEPART... 

DIR 


/-/3 MESSAGE SANS ATTENTE... 


1-12 FIN 

/-1OSECTION 2 

BASIC 

CMD"S" 

1.10FIN 

1.13 FIN DE CHAINAGE 

11 y à trois façons d'appeler ce fichier 
CHAIN FICHAIN 

CHAIN FICHAIN SECTION 2 

CHAIN FICHAIN FIN 

En quoi diffèrent-elles, d'après vous ? 
Remarques : Une section se termine par la fin du 





. fichier ou par le début d'une autre section 


(identificateur). Les identificateurs frappés en 
caractères minuscules ne semblent pas être digérés 
correctement ! 


CHNON paramètre 


Paramètre : 


Y 
N 
D 
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CHAIN - CHNON - CLEAR 


But : Cette commande NEWDOS 80 permet l'abandon 
provisoire, puis la reprise d'exécution du fichier 
de chainage. Lorsque CHNON,N est rencontré dans le 
fichier, le chainage est stoppé, le contrôle est 
rendu au clavier, et toutes les commandes suivan- 
tes seront issues de cet organe. Lorsque la 
commande CHNON,Y est frappée au clavier, le fichier 
de chainage se poursuit là où il avait été inter- 
rompu. Soit, par exemple, le fichier de chainage 
suivant : 


DIR 

CHNON,N 

FREE 

L'exécution de ce fichier provoque l'affiche du 
catalogue de la disquette, puis le contrôle est 
rendu au clavier comme si le chainage était termi- 
né, et on peut ensuite frapper n'importe quelle 
commande. Lorsque CHNON,Y est entré au clavier, 
l'exécution du fichier de chainage se poursuit 

par la commande FREE. 

‘ Lorsque la commande CHNON est exécutée à un second 
niveau d'appel, par exemple dans un programme 
lancé par le DOS (BASIC par exemple), utilisant la 
procédure "DOS-CALL" (appel de routine DOS par CMD 
"commande" sous BASIC), 11 y a lieu de distinguer 
deux cas : le chaïinage se poursuit au niveau du 
programme appelant (BASIC par exemple), ou le 
chainage se poursuit au niveau du DOS (appelé). 
Dans le premier cas, il faudra employer CHNON,Y 
et dans le second cas CHNON, D. Nous allons 
concrétiser cela par le fichier de chainage sui- 
vant 
DIR 
CHNON,N 
CMD " s"t 
FRÉE 
LIB s 3 
Lorsque le contrôle est rendu au DOS, appelons le 
BASIC, puis frappons : CMD "CHNON,Y". Le fichier 
de chainage se poursuit (au niveau BASIC), par 
CMD " s" = 
Retirons maintenant la commande CMD "S" du fichier 
de chainage, et recommencons notre expérience en 
frappant cette fois sous BASIC : CMD "CHNON,D". 
Le chainage se poursuit (au niveau DOS) et, à la 
fin du fichier, le contrôle revient au BASIC. 
Voilà la différence ! 


CLEAR (paramètres éventuels) 


Paramètres 
START=adr1 
END=adr2 
MEM=adr3 


But : cette commande NEWDOS 80 est utilisée pour 
effectuer certaines réinitialisations du DOS. ; 
Optionnellement, une zone mémoire peut être remise 
à zéro. 

Les réinitialisations effectuées sont les suivantes 
. - routages de périphériques supprimés (voir ROUTE) 
- routines accrochées à l'interruption temps-réel 

désactivées 

- routines appelées par "*" désactivées (Spooler) 
- réajustement de la zone mémoire protégée (HIMEM) 
à la valeur donnée par adr3 (valeur maximum si non 
spécifiée) 

Exemple 

CLEAR, START=8000H,END-9000H est remise a zero. 
HIMEM est forcée à BFFFH. 

Les valeurs implicites prises par défaut sont : 
5200H si START n'est pas précisé, HIMEM si END n'est 
pas précisé 

CLEAR 

effectue les réinitialisations ci-dessus et force 
à zéro la zone comprise entre 5200H et HIMEM. 


EE 








Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est 
destinée à être exploitée par le programme de 
gestion des articles décrit dans le numéro 1 de 
TRACE (pages 58 à 61). Le format est le suivant: 
Nom abrégé de l'article, numéro de page 1 à 4 
mots-clés. 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi une 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo- 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donné dans l'article. Pour 
cela aussi, faites-nous part de vos idées! 


ORCHESTRA 90, 15: ESSAI, MUSIQUE, LOGICIEL, 
MATERIEL 

CLAVIER ACCENTUE, 16: ESSAI, TDT, LOGICIEL, 
MATERIEL 

APL SUR MODELE 1, 17: ESSAI, LANGAGE, APL, 
LOGICIEL 

LIBRAIRIE, 20: LIVRES, ESSAI 

MISE A JOUR, 23: PROGRAMMES, MAJ, DISQUETTES, DOS 

MUSIQUE, 26: PROGRAMME, MUSIQUE, JEU 

OUTILS, 31: OUTILS, BASIC, ASSEMBLEUR, MONITEUR 

MATERNELLE, 33: APPLICATION, ENSEIGNEMENT 

DOUBLE FACE, 34: BRICOLAGE, DISQUETTE, MATERIEL 

SUPERGRAPHIQUES, 36: PROGRAMME, GRAPHIQUES, CODES, 


MOTS-CLES 


MOTS-CLES, 40: PROGRAMME, CODES, MOTS-CLES 

TABLE, 41: TABLE, CODE, MOTS-CLES 

CASSETTES, 42: PROGRAMME, ROM, CASSETTES, MATERIEL 

COMPILEZ, 46: LANGAGE, BASIC, COMPILATEUR, 
LOGICIEL 

TRI, 52: PROGRAMME, TRI, ASSEMBLEUR: 

CLUEDO, 57: POQUETTE, PROGRAMME, JEU 

TAPISSEZ, 60: POQUETTE, PROGRAMME, APPLICATION, 
TAPISSERIE 

BATAILLE NAVALE, 62: POQUETTE, PROGRAMME, JEU 

DOS DE A A Z, 65: FICHE, DOS 
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Un rapport Prix-Performance inégale !. 


Caractéristiques 

Z80A CPU (3,2 MHz): 

64 K RAM (extensible 192 K); 

Clavier minuscule / majuscule 85 touches: 
Clavier numérique séparé; 

8 touches de fonction programmables: 
Ecran vert 12 pouces haute résolution; 

24 lignes de 80 caractères ou 16 lignes de 
64 caractères; 

2 disquettes 325 K chacune (extensible à 4 
de 650 K); 

CPM 2.2 ou NEWDOS 80 version 2; 
Interface parallèle pour imprimante; 
Interface série (modem / communication): 
Horloge en temps réel. 

OPTION graphisme haute résolution. 


Professionnel 

De part ses performances, il s'adresse aux pro- 
fessionnels mais son prix le rend accessible à 
une plus large clientèle. 


Programmes 

Disposant de plusieurs «operating systems» 
(les plus répandus au monde) et grâce à son 
affichage commutable, il permet de dévelop- 
per ou d'utiliser l'importante bibliothèque de 
logiciel écrite sous NEWDOS 80 (GENIE I et II, 
TRS 80 modèle I) ainsi que les standards dis- 
ponibles sous CPM (langages . utilitaires, 
etc….). 
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